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ABSTRACT 

A review of the dual-phase power system was made. This 
study focused on the multi-component nozzle of this dual- 
phase system. First, an existing computer code predicting 
the nozzle performance was updated, and second a series of 
experimental tests on a variable area, two-dimensional 
nozzle was performed to verify the computer code . 
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I. DUAL- PHASE CYCLE 



The dual-phase nozzle is a key element in the dual-phase 
engine concept. This nozzle will be studied in detail, but 
first a review of the dual-phase cycle will be carried out 
from information obtained from References 1 and 2 . 

Reference 1 describes the dual-phase engine . It is a 
new concept which operates on a mixture of two fluids or two 
phases of one fluid. This cycle employs a high-torque/low- 
rpm impulse turbine which eliminates the requirement for 
speed reduction needed in a conventional steam turbine. 

This allows for direct drive of a ship's propeller with no 
gear reduction. This is ideally suited for marine propul- 
sion, reducing weight, noise, and volume. 

The dual-phase concept is a modified Rankine cycle with 
subtle differences of extreme importance. In a normal steam 
turbine the working fluid enters a turbine through a nozzle 
where the kinetic energy of the working fluid is converted 
to a mechanical form. The dual-phase system introduces a 
second fluid prior to entry into the nozzle. This fluid is of 
higher vapor pressure than the steam and therefore remains 
in the liquid state throughout the cycle. Section A will 
describe this two-component cycle while section 3 will do 
the same for a single-component system. The dual-phase 
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system can be divided into the two groups illustrated in 
Figure 1. Single-component flow can be further divided into 
three categories . 

A. TWO-COMPONENT 

A two-component mixture is one in which the low vapor 
pressure liquid and a high vapor pressure liquid are of dif- 
ferent chemical compounds . Some fluid combinations which 
have been considered are steam-krytox , steam-caloria , steam- 
lead, bismuth eutectic, and dow-therminol . A schematic flow 
diagram and process representation on the T-S diagram are 
shown in Figures 2 and 3 for the two-phase engine cycle using 
a "two-component" mixture. The liquid phase is lithium car- 
bonate and vapor phase is steam. To illustrate the overall 
advantages of the two-phase engine cycle a discussion on the 
theory of operation will be presented using a two-component 
mixture and Figures 2 and 3. 

The major component of the dual-phase system is the nozzle. 
A mixer area is located prior to the nozzle inlet. A high 
vapor pressure liquid is placed in contact with the low vapor 
pressure liquid in this area. A high pressure vapor liquid 
mixture is formed. Since the temperature of the liquid is 
greater than temperature of the water, heat is transferred 
to the water causing it to vaporize to point 1. Figure 4 
illustrates the temperature and state point from the inlet 
of the mixture area to the nozzle exit. This mixture is 
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Figure 2 . Dual-Phase Two-Component System 




Figure 3. 
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Two- Component T-S 



Diagram 
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TWO-PHASE NOZZLE 
(JET VELOCITY V) 








Figure 4. Liquid Impulse Turbine Schematic 



expanded to a low pressure at the nozzle exit. The expand- 
ing vapor transfers momentum to the liquid droplets , while 
the droplets transfer heat to the vapor. This tends to ap- 
aproach isothermal expansion through the nozzle, point 2. 
After leaving the nozzle, the liquid droplets are separated 
from the vapor by a rotary separator located on the turbine. 
The rotating drum turns at close to the nozzle's exit vel- 
ocity. Hence there is very little friction loss between the 
separated liquid and the drum wall. The centrifugal accel- 
eration produces a very clean separation of vapor and liquid 
The liquid traveling with the rim of the rotating drum trans 
fers axially through holes in the separator disc and subse- 
quently enters the liquid turbine proper. The kinetic 
energy of the liquid is converted to shaft horsepower by the 
liquid turbine. Figure 5 illustrates the dual-phase liquid 
impulse -curbine assembly. The vapor remains superheated as 
a consequence of the heat transfer from the liquid. The 
vapor flows from the separator, point 3, through a regenera- 
tor where hear is transferred to the condensate. The vapor 
is condensed, point 5; pumped to nozzle pressure, point 6; 
and passed through the regenerator for heating. Heat is 
added between point 6 and point 1 in two methods . The re- 
generator adds heat to the condensate by using the steam 
from the turbine rotor, point 7. The remainder of heat, 
point 7 to 1, is added by the heated liquid mixed with the 
condensate in the mixer. The water is vaporized by direct- 
contact heat transfer. 




= Temp of liquid entering mixer 
= Temp of water entering mixer 

> t l 

= Temp of steam leaving the nozzle 
= Temp of liquid leaving the nozzle 



where 
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Figure 5. Temperature S State Point Diagram 
for the Mixture S Nozzle 



IS 



In the nozzle most of the thermal energy of the steam 
is converted to kinetic energy of the liquid droplets . 

This acceleration of the liquid by the vapor in the two- 
phase nozzle provides the kinetic energy to drive the 
liquid impulse turbine. The liquid velocities involved 
are relatively low as compared to velocity of the vapor. 

Thus, the output of the impulse hydraulic turbine will be 
high torque/low rpm. This conversion of the liquid kinetic 
energy to shaft power at high torque with low rpm appears 
to have direct application to naval propulsion. 

B. ONE-COMPONENT 

A one-component system is one in which the working fluid 
is of the same chemical compound. One of the simplest dual- 
phase one -component systems is illustrated in Figures 6 and 
7 . The working fluid is heated to saturation temperature by 
some type of heat source. Heat sources applicable to this 
case are geothermal power plants, engine exhaust, industrial 
waste-heat recovery, and bottoming cycles for steam and gas 
turbine plants. This working fluid, at saturated liquid con- 
ditions , with small amounts of vapor is expanded through a 
two-phase nozzle. As the expansion process takes place , the 
liquid partially vaporizes and accelerates the remaining 
liquid phase in the nozzle . The dual-phase mixture enters 
the rotary separator and the same process occurs as mentioned 
in section A. Since the liquid phase is of a much higher 
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Figure 6. Duel-Phase Single-Component System 
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Figure 7. Dual-Phase Single-Component T-S Diagram 
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density than the vapor, the liquid velocities are relatively 
low as compared to the velocity of the vapor. Thus the out- 
put of the turbine will again have high torque at low rpm. 
After leaving the turbine the vapor mixture is condensed and 
the condensate is pumped back to the heat source. The cycle 
is shown on a T-S diagram in Figure 6 . The state points are 
numbered to correspond with Figure 5. The dual-phase nozzle 
expansion takes the fluid from a saturated liquid, point 1, 
to a dual-phase flow, point 2. The flow is decelerated in 
the rotor-, condensed, point 4; and pumped back to nozzle 
inlet pressure at point 5 . The liquid is then reheated by 
the source fluid to point 1. 

Another application of the one-component two-phase cycle 
is the wet-to-dry cycle. If the initial temperature of the 
working fluid is sufficiently high and the saturation curve 
has a positive saturated liquid slope the working fluid can 
be expanded to dry vapor. Figure 3 is the T-S diagram for 
a wet-to-dry cycle . The fluid is expanded from saturated 
liquid at point 1 to saturated vapor at point 2 . The vapor 
drives an impulse rotor and leaves the rotor slightly super- 
heated at point 3. The vapor is condensed to point 4 and 
pumped back to the nozzle inlet pressure at point 5 . 

C . ADVANTAGES 

The advantage of the dual-phase cycle with respect to 
marine application is the ability to achieve low shaft SDeed 
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in a small turbine engine. For example a steam turbine of 
150-kw shaft horsepower using the temperature given in 
Figure 2 would have a speed of about 60,000 rpm. A compar- 
able two-phase turbine would operate at approximately 10,000 
rpm. There is also an efficiency advantage. At temperature 
corresponding to Figure 2, a steam Rankine cycle would have 
an efficiency of approximately 28% where-as the two-phase 
cycle would have an efficiency of 37%. This is assuming equal 
turbine efficiencies . The two-phase cycle also allows for 
control of turbine speed because the vapor/liquid mixture 
ratio can be varied to change the nozzle exit velocity. This 
is a capability unavailable in a conventional steam turbine . 

Both of the dual-phase concepts can be thought of as a 
form of a regenerated Rankine cycle. The dual-phase cycle 
by control of liquid/vapor mixture ratio enhances the overall 
power system controlability . The T-S relationship for a dual- 
phase two-component engine cycle compared to a Rankine cycle 
is shown in Figure 9 . 

Two design studies References 1 and 2 , have shown potential 
advantages in the two-phase engine cycle as compared to the 
conventional Rankine cycle for marine propulsion. The fol- 
lowing advantages were noted: 

1. High Efficiency - Full load output power performance 
gains ranging from 20 to 50 percent was found. 

2 . Direct Drive - Direct drive at speeds ranging from 
90-4500 rpm was found possible with a single-stage turbine. 
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Figure 9. T-S Comparison of Dual-Phase Two-Component 
Cycle S Rankine Cycle 
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3. Reduced Volume - Volume reduction of 30 percent 
were estimated. 

4. High Part-Load Efficiency - Variable mass ratio 
enabled part-load (cruise) efficiency gain of as much as 
100 percent. 
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II. dual-phase nozzle theory 



The flow phenomenon of a two-phase mixture has been ana- 
lyzed in Reference 1. It is repeated as follows. The problem 
is illustrated in Figure 10. A spatially uniform two-component 
mixture of liquid drops and gas enters a nozzle at high pres- 
sure and low velocity and expands to low pressure and high 
velocity. The objective of the analysis is to determine, for 
a specified pressure the drop diameter D and the tempera- 
tures T and T, , velocities V and V, and flow rates m and 
g L g L g 

m T of the gas and liquid phases, respectively, at each station 
in the nozzle given the initial values of D , T , T. , V , V. , 
the total flow rate, and the properties of the fluids. 




Figure 10 . Dual-Phase Nozzle Flow 
Geometry 8 Nomenclature 
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The five relations employed to compute the five unknowns 
D, T ct , T t , V , and V^, are (1) the momentum equation for the 
mixture, (2) the energy equation for the mixture, (3) the 
drop drag equation, (4) the drop heat transfer equation, and 
(5) the drop breakup criterion. Solubility and vapor pres- 
sure relations provide the flow rate ratio m^/m^. 

A. ASSUMPTIONS 

The assumptions employed in the two-component analysis 
are as follows: 

1. The liquid is uniformly dispersed as spherical drops 
all of the same diameter. 

2. The drops break up to limit the Weber number to 6. 

3. There are no external forces acting on the two-phase 
mixture other than pressure and wall shear, and 
there is no heat transfer to or from the mixture. 

4. The flow is one-dimensional. 

5 . The drops are large enough for the surface curvature 
to have negligible effect on the vapor pressure of 
the liquid and for the surface energy to be negligibl 

6. The drops are isothermal. 

7. The gas mixture obeys the additive-pressure law. 

8. The partial pressure of the predominantly liquid 
component in the liquid is given by Raoult's Law. 

9 . The concentration of the predominantly gaseous com- 
ponent in the liquid is given by Henry's Law. 
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10 . The volume of the liquid solution is equal to the 

sum of the volumes of the pure liquids . 

Assumption 1 restricts the analysis to nozzles having 

spatially uniform injection of the liquid into the gas and 

operating at gas-to-liquid volume ratios greater than unity 

Assumption 2, the drop breakup criterion, states that drop 

2 

diameter is limited to a value D for which W = p V D/2 

e g g 

= 6 . Thus 



= 



12g 

P,vi 



(i) 



where p 7 is the gas density, is the slip velocity - V^, 

and is the Liquid surface tension. The form of Eq . (1) is 

physically reasonable in that the Weber number is propor- 

2 

tional to the ratio of stagnation pressure p V 12 to sur- 

& - g s 

face tension pressure 4V/D. Hence, a drop would be expected 
to flatten and breakup at a sufficiently high value of W e . 
This has been verified experimentally and the critical Weber 
number found to be 6, within a factor of about two. An 
additional restriction is that for actual breakup to occur, 
the time spent at a Weber number exceeding 6 must be longer 
than the natural period of oscillation of the drop, 

TrCp^D / ) /4, where p^ is the density of the liquid. 

This requirement is met only in two-phase nozzles longer 
than about 10 in. and Assumption 2 may cause the analysis to 
overestimate the exit velocity by increasing amounts as the 
nozzle length decreases below 10 in. 
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Assumption 3 excludes magnetohydrodynamic and mechanical 
body forces. The exclusion of wall heat transfer is correct 
for the insulated nozzles of interest for power systems. In 
addition, the relatively high velocity results in short 
residence lines in the nozzle proper. 

Assumption 4 is closely met in practical nozzles since 
good performance requires small wall angles, large throat 
radius of curvature, and uniformly distributed injection of 
the fluids at the nozzle entrance. 

Assumption 5 is valid for the drop sizes of 0.001 to 
0.010 in. produced by the Eq . (1) breakup criterion. Assump- 
tion 6 is valid because of the rapid internal circulation 
in drops. Assumption 7 introduces negligible error in most 
cases of practical interest since the vapor pressure of the 
liquid is small and needs only to be evaluated approximately. 

Assumptions 8, 9, and 10 are either valid, or cause little 
error, for fluids of low miscibility, which are the fluids of 
interest . 

3. DERIVATION OF EQUATIONS FOR FREE-STREAM FLOW 
1 . Continuity 



Referring to Figure 1, the nozzle flow area A is 





( 2 ) 



where r is the mass mixture ratio m T /m^. 



L g 



2 8 



Momentum 



2 . 

By Assumption 3, the only force acting on the free- 
stream flow is that due to the pressure gradient. If M is 
the momentum flux at flow area A, the change in momentum 
flux across pressure increment dp is 

dtii = — Adp ( 0 ^ 

The momentum flux can be written as the sum of the 
momentum fluxes of the gas and liquid. Thus, 

if = m,V, + tn.V; ( 4 } 

If the flow were allowed to continue at constant 
pressure, and would become equal to each other at the 
mass-weighted mean velocity V. Since for this process, 
dM = 0 , the value of V is given by 

(m, + rh,)V = dx t V, + m,V, ( 5 ) 



or 



7 = 



1 Vj+_rVi 



1 + r 



( 6 ) 



Thus, the momentum flux can be written 

= (m, + mj)V 

Since m^ + m T is constant, the change in momentum flux is 



(7) 



( 8 ) 



dM = (m, + mt)dV 

Substituting Eqs . (8) and (2) into Eq . (3), dV can be written 

Z7"7rr) ip <9) 
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The slip ratio is defined as 



j = V./V = (V,-V,)/V 



( 10 ) 



This equation can be combined with Eq. 
in terms of V : 



(6) to give V and 



v, = (i + T ^ 7 )v = «v (11) 

V, = (l - -r — — ^ V = bV 

\ ( 12 ) 



The gas density can be expressed as 

p, = \V,p/RT, Q3) 

where W is the effective molecular weight of the gas mixture 
§ 

and R is the universal gas constant. Eq. (13) is the defini- 
tion of the effective molecular weight W , which is the 

o 

quantity that gives the actual gas density when substituted 
in Eq. (13) . 

Substituting Eqs . (11) - (13) into Eq. (3), the dif- 
ferential momentum equation is 

2VJV-J V-=- T !t(s& + (14) 

The quantities a and b are slowly varying because s is 
typically only 0.1 to 0.3 and slowly varying. The quanti- 
ties r, T , W and p, are also slowly varying. Integrating 
& § u 
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Eq . (14) over a pressure increment Ap, for which a, b, r. 



T , W , and p T are constant to within the 

g g L 

—2 . 

the change in V is 



desired accuracy, 



AV> = - 



2 / . V ± Ap/2 

1+ P “ *p/2 






(15) 



All quantities other than pressure can be taken outside the 
integral and evaluated at their mean values (denoted by sub 
script m) corresponding to the mid-interval pressure p. Thus, 



av* = - 



2 

1 + r. 




Performing the integrations, 




(16) 



(17) 



Equation (17) is the final form of the momentum equation. 

3 . Energy 

The enthalpy change of the mixture between state 1 
(the beginning of pressure interval Ap) and state 2 (the end 
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of the interval) can be evaluated in two steps: (1) phase 



change at , T , 
fixed composition. 



T and ( 2 ) 
L 1 



change to P 2 5 





at 



The enthalpy change for step 1 is 



A H, 



+ 



+ 



or 



amount of A 
vaporized X 



amount of B 
vaporized X 



amount of A 

and B X 



enthalpy required 

to vaporize and 

heat unit mass of 

A from T t to T t 
L gL 

enthalpy required 
to vaporize and 
heat unit mass of 
B from T t to T 

L 1 §1 

kinetic energy 
required to 
accelerate unit 
mass from V. to 
V 1 

§1 



A#! — [^«1 + Ca » 1 ^*l)] 

+ (m k>9 - tht ti ) [L h + c bt JT tl - TjJ] 

+ to , - 0 ( v ;, - )/2 



where L and c are latent heat and specific heat, respectively. 
Introducing more compact notation. 

Atf, = A m, # (L #1 + £^5,7) 

A . fV! (19) 

The enthalpy change for step 2 is evaluated from the 
temperature, pressure, and velocity changes, with properties 
evaluated at mean T and p for the interval. 
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iff, = ra„ [e f .(T„ - T„) + 4- (V;, - V,’,)] 



+ -j (vi, - vi,)] 

= + ~3r) 

•+ ( c ‘- iT ' + 7^ + “T") 



By Assumption 3, no work is done by the free-stream flow 
and no heat is transferred to it. Hence, 



aH, + aH, — 0 



(22) 



Substituting Eqs . (19) and (21) into Eq. (22) and 
solving for AT gives the energy equation for the mixture: 

o 

+ ^r + -^r( L -. + w,^) 

(^u x + c »», 



(2 



1 Ani » , 



4 . Drag 

Although no force other than pressure acts on the 
free-stream flow as a whole, a drag force exists between 
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CO 



the phases. Hence, a second momentum equation must be 
witten using as the control volume the boundary between 
the phases . 

The two forces acting on each liquid drop are the 
buoyancy due to the pressure gradient and the drag due to 
the relative gas velocity. The sum of these is equal to 
the mass times the acceleration of the drop. Thus, for a 
single drop. 



dynamic pressure of 
relative gas flow X 



drag frontal area 

coefficient X of drop 



volume ^ pressure 
of drop gradient 



mass ^ acceleration 

drop drop of drop 



or 




tD 3 dp 
6 dx 






( 24 ) 



The absolute value sign in the first term makes the 

drag force positive when V > V T and negative when V < V. . 

g L s g L 

Solving Eq . ( 2 u ) for dV^, 

... 3o.|*UV 3 Cn<fr dp 

“ y » “ — TZTTn n.V. 
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Differentiating Eq . (12), dV L can also be expressed in 
terms of s, r, and V. Thus, 



dV i — bd V + V + f y 



sdr 




( 26 ) 



Solving for ds , 



V 



«/r (I + r)dV, 

1 + f V 



(27) 



Substituting dV^ from Eq. (25), noting that dV = 

—2 — 

dV /2V, using Eq. (12), and writing for a finite increment, 
results in, 

b m (1 + r„) AV* (1 4- OAp , 

2V 1 b m pi V* 1 + 

" (28) 

I I 

4 b^pxJD 



This is the drag equation employed when x is specified 
as a function of p . 

Solving Eq . (28) for A x yields the required alter- 
native equation: 



Ax = 



AD 



3pt n | 5 m | S m Cr,, 






Ap -t 






b~Pi n V- m ( s„\r \\ 

+ -TT7— {— "")J 



(29) 
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5. Heat Transfer 



Although no heat is transferred to the mixture as a 
whole, heat transfer exists between the phases. Hence, a 
second energy equation must be written using as the control 
volume the boundary between the phases . 

The work dW done on the liquid is that due to drag 
by the gas. (Only work done by shear or shaft forces is 
included in dW when writing the First Law for a control 
volume). Multiplying Eq . (24) by the number flow rate of 
drops N = 6m^/irD p T , the drag force on that quantity of 
liquid is 



N 



m, dn 



F< = f P, | V, [ V.C 0 *D' = + m,V, 



dV , 
dx 



( 30) 



The work done on the liquid is 



-dW = F<dx = 



. / dp 

= m, I — 

\P' 



— 4- 



( 31) 



The heat dQ transferred from the liquid is made up of 
two parts: (1) the convective cooling due to the temperature 

difference between the liquid and gas and (2) the evaporative 
cooling due to the latent heat supplied to the liquid vaporized. 
The convective cooling is 



~dQ' = hA<X(T, - T,)dl 



( 32) 
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where h is the heat-transfer coefficient, = ttD is the 
surface area of a drop, and dt = dx/V^ is the time required 
to traverse dx. Thus, 



■do = ~ 

Vf DptVt 



( 33) 



The evaporative cooling is 

— dQ w = Ludm*' 4 - L^dm^^ ( 34 ) 

The change is enthalpy of the liquid over the pressure 
increment dp is 

<JH = m, (c.dT, + — ) (35) 



Substituting Eqs . (31), (33), (34), and (3S) into the 
steady-flow energy equation dQ - dW = dH , the result is 



6/tmtoT< fe _ j ’ dm. — = m,c,dT i 

Dp jV, * * 



( 36) 



where 6T = T - T t . 

g L 

Writing for a finite interval, the final form of the 
drop heat-transfer equation is 

„ 1 r 6hS m T±Z J ^dl a , J 

aTi = — ~n — r; ~z L ' 6 "' ~zr 

(37) 



"I. J 
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Equations (1), (17), (23), (23), and (37) are the five 
equations that must be solved simultaneously to obtain the 
values of the five dependent variables D, T , T. , V , and 

o o 

as a function of the independent variable p. To carry out 
the solution all quantities in the equations must be expressed 
in terms of these six variables. 

C. WALL SHEAR AND BOUNDARY LAYER 

For a two-phase nozzle, the momentum flux of the friction- 
less nozzle flow is that given by 

M = m ( V 



The mean mixture density corresponding to the mean velocity 

V is 



, _ jjh_ Pi 
P AV 1 + r a 



(38) 



where r^ is the ratio of gas flow area to liquid flow area 

Pl'VrPgVg. 

From the definition of the momentum thickness, the value 

of 9 at a station where the nozzle wall radius is y is 

J o 

given by 



Si — Mj = 2nry„d 2—L = 2iry 0 p'V 2 6 



( 39) 



where M p is the momentum flux of the real flow with friction. 
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The skin-friction coefficient can be defined using the same 
quantities as single-phase flow 




_ 2-Ty, 



(40) 



where is the wall shear. It will be shown that a valid 
Cjr value can be provided. 

The boundary-layer momentum equation then becomes 



where 5* is the displacement thickness, i.e., the distance 
the wall must be moved outward to give the same flow rate 
as with frictionless flow. 

Assuming a 5 power velocity profile and no density vari- 
ation, the shape factor 6'' : /9 is obtained from 



where 6 is the velocity thickness of the boundary layer. 




(41) 





— —2 — 

Noting that aV can be written dV /2V, and that d(p'V) 

d(m J _/A) , the finite-difference form of Eq. (41) is 
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Wall shear in homogeneous two-phase flew has been found 
to be equal to that which would exist with pure liquid at 
equal velocity and boundary-layer thickness, multiplied by 
the wetted wall fraction: 







Ai 

p,v ' — 



Cf, Pi V 2 
2(1 + r„) 



(42) 



where C- is the skin friction coefficient for liquid at a 
r l 

Reynolds number of 

= li 

/* i 



For a 1/ 7-power profile, the velocity thickness, 



s = ~e 



A convenient relation for as a function of R. is the 

*1 5 
Shultz-Grunow relation which can be written 



C„ = 



0.208 



h ~ (logio - 0.425) 2 - 5 



Comparison of Eqs . (40) and (42) shows that C^. can be 
written 

r _ T 't> ^ 

C/ ~ TT 7 Cf i 



Thus 

equation 



the 

is 



final form of the boundary-layer 



A0 = 



r. n Z?.,| 



1 






Cr , AX - e„ 
2 



/ SaI 7 - 

V 7V;, 



AA ^ At/„ \ 

4°m / 



momentum 
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Let Vg be the mean velocity of the flow including the 
boundary layer. Then, from Eq . (39), 



Hence, employing Eq. (38), the mean exit velocity includ- 
ing the boundary layer is 



By the definition of the displacement thickness, the flow 
rate is reduced by the throat displacement thickness 5* to 



D. NOZZLE THEORY SUMMARY 

The preceding equations form the basis for the mathematical 
model which is used to predict, based on inlet conditions, the 
exit velocity, and temperature of the mixture. These equations 
also form the basis for the model which provides the optimum 
nozzle shape given a set of inlet conditions. Some additional 
relationships are, however, required. These are: 

1. Phase properties - to establish the mass ratio, mass 



m,Vs = M f = m, V — 2wy 0 p'\ 72 $ 





flow rate ratio of gas to liquid, and the thermal 
conductivity of the mixture . 



2. Liquid drop drag coefficients. 

3. The liquid drop heat transfer coefficients. 

4. Boundary layer momentum thickness and displacement 
thickness . 

5. Skin friction coefficient. 

These five additional relationships are developed in detail 
in Reference [1]. 
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III. COMPUTER PROGRAM DUAL-PHASE NOZZLE 



The computer program employed in this study is based on 
a program developed by Dr. G. Elliott of the Jet Propulsion 
Laboratory in Pasadena, California. The program was updated 
and converted for use on the Naval Postgraduate School 
computer. The Dual-Phase Two-Component program employs the 
theory in Section II . The program is written in Fortran 
computer language and can be compiled using a Watfiv or For- 
tran IV compiler. 

This program has been utilized in dual-phase nozzle 
analysis and to provide values for comparison with the ex- 
perimental results. To use the computer program the inlet 
conditions have to be specified. The flow conditions are: 
inlet pressure; mass ratio; inlet temperature of the gas and 
liquid; inlet velocity of the gas and liquid; total mass flow 
rate; and nozzle exit pressure. Section III B, shows speci- 
fied details for data input. 

There are two options that can be chosen. The first is 
prescribed press ure-vers us -dis tance option MOP = 0 . The pres- 
sure profile P(X) is selected corresponding to the adopred 
nozzle contour. If the pressure-versus-distance is used a 
?(X) input table is required. This profile is developed 
from the actual measured pressure values in the experiments . 



(See Appendix A for sample program.) The second option con- 
sist of an optimum nozzle contour option M0P=1. This option 
is useful only when the liquid drop diameter is constant. 

The dual-phase two-component computer program is a struc- 
tured program with thirteen subroutines controlled by a main 
program. This arrangement improved the programming process 
through better organization and programming notation. 

The control point of the dual-phase two-component com- 
puter program is the "main section." It controls the flow 
path and operation of all input data, property tables, and 
calculations. It accomplishes this by calling the thirteen 
subroutines at the appropriate times, saving wanted data 
in files, and printing out desired information. 

One of the most important subroutines which inputs in- 
formation is the "INTRP" subroutines. INTRP controls the 
property table inputs . It reads in four two-dimensional 
tables and fourteen one-dimensional tables. These inputs 
are the properties of the gas and liquid phases of both 
components of the flow in the nozzle . The subroutine writes 
the values of these tables into a file and retrieves appro- 
priate values from that file. INTRP can also interpolate 
for values used throughout the entire program. 

Input of case data is controlled by subroutine "Sect 1." 
Identification information and case heading information is 
read and printed for each instance. Sect 1 also places the 
pressure vs. distance profile, if specified, in an array. 
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"Sect 2" through "Sect 6" are the subroutines which cal- 
culates the flow data. Sect 2 sets the initial conditions 
indicated in the input, and begins the iterations. Sect 3 
computes initial flow rates of both components ; the initial 
area of the nozzle; slip velocity; mean free stream velocity; 
and slip friction. Sect 4 computes the changes in flow par- 
ameters and new distances. It then begins to calculate new 
conditions such as flow rate, temperature, velocities, sur- 
face tension and mean area. Sect S is the binary cut con- 
vergence routine and computes mean boundary-layer parameters . 

If a problem is diagnosed in any subroutines and "diagno" 
is called, it will print all output parameters calculated to 
that point. It also does the same if there is a convergence 
problem. 

There are two subroutines that output calculated data, 
subroutine "Write" and subroutine "Output." Subroutine 
"Write" will send output information to the printer for a 
hard paper copy. Subroutine "Output" reads and stores the 
output on a file. 

The two-phase two-component program has been written 
with comment statements in the text of the program. These 
will allow for a more understandable and, therefore, a more 
easily modified program. For specific details on the content 
of these subroutines, see Appendix M. 

The dual-phase nozzle program was tested for correct 
output. Sample data and results were obtained from 
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Dr. David Elliott, were inputted into the program, and 
executed. The output was compared to the sample data. The 
program produced duplicate results . 

The program begins by storing fluid property tables and 
reading in all input data. All nozzle inlet conditions are 
computed. The program then proceedshalf a pressure step at 
a time. At the middle of each pressure interval, the changes 
in quantities across the interval are computed using the pro- 
perties interpolated from the table for that pressure, and 
for the existing temperature. The change in slip is found 
if the pressure profile PCX) is specified. At the end of 
each pressure step , the flow conditions are updated and 
initial conditions are determined for the next step. The 
dropsize is reduced at the point when the Weber number ex- 
ceeds six. The flow conditions are printed if the pressure 
is one selected for output. The computation continues until 
the last pressure step has been completed and flow conditions 
at the smallest flow area encountered are printed as the 
throat conditions . 

A. PROPERTY TABLES 

1. Heat capacity of component "A" vapor in 3TU/L3M-R 
is a function of temperature and pressure . The two-dimen- 
sional tables are entered row-wise . At least two cards are 
necessary to specify a row and at least two rows must be 
entered . 
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Card 1: 



( format 6E12 . 6 ) 



cols . 

1-12 temperature (R) 

13-24=1.0 if this is the last temp for 
this table 

Card 2: (format 6E12.6) 

cols . 

1-12 pressure (psi) 

13-24 heat capacity (BTU/LBM-R) 

25-36 pressure (psi) 

37-48 heat capacity (BTU/L3M-R) 

49-60 pressure (psi) 

61-72 heat capacity (BTU/LBM-R) 

The maximum entries of temperature are 35 values . For 
each value of temperature , the maximum number of entries of 
pressure and heat capacities are 35 values . Each row of this 
table will be terminated with the pressure and heat capacity 
equal to 10^. These two values are not counted in the maxi- 
mum of 35 entries /rows allowed. 

The program shown in Appendix 3 can be used to determine 
the values of heat capacities . The program structures its 
output in the format needed for the table input . It uses 
input data obtained from Reference 3. The input data must 
be placed in a two-dimensional table. This table is used 
in the program to interpolate the values needed fcr output . 
Input data must be formatted as follows : 



Card 1-16 (format 10F7.4) 



cols . 

1-7 temperature (R) 

at this temp the following is entered: 

8-14 heat capacity at .01 P 
15-21 heat capacity at . 4 Pa 
22-28 heat capacity at . 7 Pa 
29-35 heat capacity at 1.0 Pa 
34-42 heat capacity at 4.0 Pa 
43-49 heat capacity at 7.0 Pa 
50-56 heat capacity at 10.0 Pa 
57-63 heat capacity at 40.0 Pa 
64-70 heat capacity at 70.0 Pa 
The temperature must be entered with 
increasing value. 

2. Heat capacity of component "B" gas, BTU/LBM-R is a 
function of temperature and pressure. This two-dimensional 
table has the same format as part A1 above . 

3. Molecular weight of component "A" vapor is a func- 
tion of temperature and pressure. The two-dimensional 
tables are entered row-wise . At least two cards are neces- 
sary to specify a row and at least two rows must be entered. 

Card 1: (format 6E12.6) 

cols . 

1-12 temperature (R) 
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13-24=1.0 if this is the last temp for 
this table 

Card 2: (format 6E12.6) 

cols . 

1-12 pressure (psi) 

13-24 molecular weight 
25-36 pressure (psi) 

37-48 molecular weight 
49-60 pressure (psi) 

61-72 molecular weight 

The maximum number entries of temperature are 35 values . 
For each value of temperature, the maximum entries of pres- 
sure and molecular weight are 35 values . Each row of this 
table will be terminated with the pressure and molecular 
weight equal to 10^. These two values are not counted in 
the maximum of 35 entries /rows allowed. 

The program shown in Appendix C can be used to deter- 
mine the values of molecular weight. The program formats 
its output in the format needed for the table input of 
the two-component two-phase computer program. It uses 
input data obtained from Reference 3 . The input data 
must be placed in a two-dimensional table. This table 
is used in the program to interpolate the values needed 
for output. The program used in Figure 8 can only be used 
w ^Th ideal gases . Input data must be formatted as follows : 
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Card 1-16 (format 10F7.4) 
cols . 

1-7 temperature (R) 

at this temp the following is entered: 

8-14 density at .01 P 

15-21 density at .4 Pa 

22-28 density at . 7 Pa 

29-35 density at 1.0 Pa 

34-42 density at 4.0 Pa 

43-49 density at 7.0 Pa 

50-56 density at 10.1 Pa 

57-63 density at 40.0 Pa 

64-70 density at 70.0 Pa 

The temperatures must be entered with 

increasing value. 

4. Molecular weight of component "B" gas is a function 
of temperature and pressure . This two-dimensional table 
has the same format as part A3 above . 

5 . There are fourteen one-dimensional tables . The 
one-dimensional tables are entered in the following format 
(for Z ( T) ) : 

Card 1: (format 6E12.6) 

cols . 

1-12 Ti-2 , oR 
13-24 Ti-2 
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25-36 Ti-1 2 < i < 50 

37-48 Zi-01 
49-60 Ti 

61-72 Zi and Tj-1 < Tj for 2 ^ j < SO 
Each table is terminated by two consecutive entries of 
10^, i.e., Tk = Zk = 10^ (1.0E5 right adjusted in the field) 
The fourteen one-dimensional tables are (in order requested) 

1. CAL(T) heat capacity of component A liquid, 
3TU/LBM oR 

2. CBL(T) heat capacity of component B liquid, 
BTU/L3M oR 

3. LA(T) latent heat of vaporization for com- 



4 . 

5 . 

6 . 



n 

/ . 



3. 



3 . 



ponent A, 3TU/LBM 

LB(T) latent heat of vaporization for com- 
ponent B, 3TU/LBM 



PBO(T) 

ROAL(T) 

L3M/FT3 

ROBL(T) 

L3M/FT3 

KAG(T) 

A gas , 
KBG(T) 

3 gas , 



vapor pressure of component 3 
density of liquid component A, 

density of liquid component B, 



thermal 
BTU/FT HR 
thermal 
3TU/FT HR 



conductivity of component 
oR 

conductivity of component 
oR 
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10. VIAL(T) viscosity of liquid component A, 
LBM/FT HR 

11. VIBL(T) viscosity of liquid component B, 
LBM/FT HR 

12. VIAG(T) viscosity of gas component A, 

LBM/FT HR 

13. VIBG(T) viscosity of gas component B, 

L3M/FT HR 

14. SIG(T) surface tension of liquid component 
B, DYNE/CM 

Appendix D gives sample property table for input. 

3. CASE INPUT 

A blank card must separate the property table from the 
data set decks following. 

Card 1: (format 4A4 , A2 , 3A4 , 7A4 , A32 , 216) 

cols . 

1-13 date 

19-30 case number, may be any 
alphanumeric data 
31-60 identification 

61-66 NS, number of pressure steps per 
printout 

(right justified integer).* Use -1 if new 
property tables follows . 

57-72 NP, number of printouts (right 
justified) 
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Card 2: (All integers right justified in field) 

(format 1116) 
cols . 

1-6 MBU, =0 constant droplet size, =1 drop 
breakup 

7-12 MOP, =0 X(P) table to be supplied, =1 
X(P) is to be optimized 
13-18 MGEO, =0 circular, =1 annular 
19-24 NDS , maximum number of S iterations 
25-30 NSO, maximum number of So iterations 
31-36 NB , maximum number of TB iterations 
37-42 NNS , first setting of step counter 
Card 3: (format 5E12.6) 

cols . 

1-12 DP, pressure step size, negative for 

decreasing, psi 

13-24 RC , mass flow ratio 

25-36 PHI, angle of annular nozzle axis, de 
37-48 RAXO , annular nozzle axis, in. 

49-60 EMT, total flow rate *P final = PO + 
(NS*NP-NNS-1) •••DP + DP1 
Card 4: (format 6E12.6) 

cols . 

1-12 H, inverse Henry's Law constant, psi 
13-24 ALAM, Lagrangian multiplier 



25-26 DPL, first pressure step size 
37-48 WAL, molecular weight of liquid a 
49-60 WBL, molecular weight of liquid b 
61-72 SA, Sutherland constant for component 
A , oR 

Card 5: (format 6E12.6) 

cols . 

1-12 SB, Sutherland constant for component 
3 , oR 

13-24 DO, initial drop diameter, in. 

25-36 PO, initial pressure, psia 
37-48 TGO , initial gas temperature, oR 
49-60 TLO , initial liquid tempeature , oR 
61-72 VGO, initial gas velocity, FT/S 
Card 6: (format 6E12.6) 

cols . 

1-12 VLC, Initial liquid velocity, FT/S 
13-24 THOO , initial momentum thickness of 
outer wall boundary layer, in. 

25-36 THIO, initial momentum thickness of 
inner wall boundary layer, in. 

37-48 EDS, convergence criterion for S 
49-60 ESO, convergence criterion for So 
61-72 E3 , convergence criterion for T, oR 
If MOP=0, the following cards are present: 
in 10 Card 7; (format 7A4 , A2 ) cols. 
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1-30 X(P) table identification (and 
alphanumeric data) . 

Card 8: (format 6E12.6) 

cols . 

1-12 pressure, pi-2, psia 
13-24 distance, xi-2, in. 

25-36 pressure, pi-1 3 <_ i <_ 75 

37-48 distance, xi-1 
49-60 pressure, pi 
61-72 distance, xi 

The last two entries are 1.0E5 and 1.0E5 right adjusted 
in their fields. The table must be monotonic increasing or 
decreasing. New property tables may be used by putting -1 
in cols. 61-66 of Card 1, and following this with new 
property tables and data sets . Appendix E is a sample 
input data. 



C. OUTPUT 



For each 
by the input 
part of this 

1. X 

2 . P 

3. R 

4 . vb 
5 . a 



case, the case identification is printed followed 
parameters. If MOP=0 , the X(P) table forms a 
output. The following output then appears, 
distance, in. 
pressure, psia 
mass flow ratio 

mean free-stream velocity, ft/s 
flow area, in. 2 
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6 . tb 

7 . tl 

8 . vg 

9 . vl 
10 . vs 
11. s 
12 . d 
13. rv 

14 . ra 

15 . alpha 

16 . beta 

17 . mg 

18 . ml 

19 . rog 

20. rol 

21. wag 
2 2. wb g 
2 3 . wg 
24. pa 

25 . pb 

26 . la 

27 . lb 



gas temperature, or 
liquid temperature, or 
gas velocity, ft/s 
liquid velocity, ft/s 
slip velocity vg-vl, ft/s 
slip fraction vs/vb 
drop diameter, in. 

ratio of gas volume flow to liquid volume flow 
ratio of gas flow area to liquid flow area 
mass fraction of component a dissolved in 
liquid 

mass fraction of component b vapor in gas 

gas flow rate, lbm/s 

liquid flow rate, lbm/s 

gas density, lbm/ft3 

liquid density, lbm/ft3 

molecular weight of component a gas 

molecular weight of component b gas 

mean molecular weight of gas 

partial pressure of component a, psia 

partial pressure of component b, psia 

latent heat of vaporization of component a, 

btu/ lbm 

latent heat of vaporization of component b, 
bzu/ lbm 
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2 8 . sigma 


liquid surface tension, dyne/cm 


29 . cgm 


specific heat of gas (at midpoint of pressure 
step) , btu/lbm of 


30 . elm 


specific heat of liquid, btu/lbm of 


31 . vigm 


viscosity of liquid, lbm/ft hr 


32 . vilm 


viscosity of gas, lbm/ft hr 


33. kgm 


thermal conductivity of gas, btu/hr ft of 


34. rem 


reynolds number of flow over drops 


3 5 . edm 


drag coefficient of drops 


36 . hm 


heat transfer coefficient of drops, 
btu/hr ft2 


3 7. rb 


mass flow ratio after velocity and temperature 
equalization 


38. ab 


flow area after equalization, in. 2 


39 . tb 


temperature after equalization, or 


40 . rvb 


volume flow ratio after equalization 


41. alphb 


alpha after equalization 


42 . betab 


beta after equalization 


4 3 . mgb 


gas flow rate after equalization, lbm/s 


44 . mlb 


liquid flow rate after equalization, lbm/s 


45 . vilb 


liquid viscosity after equalization, 
lbm/ft hr 


46 . rogb 


gas density after equalization, lbm/ft3 


47. rolb 


liquid density after equalization, lbm/ft3 


4 8 . wagb 


molecular weight of component a gas after 
equalization 
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49 . wbgb 


molecular weight of component b gas after 
equalization 


50 . wgb 


mean molecular weight of gas after equalization 


51 . pab 


partial pressure of component a gas after 
equalization, psia 


52. pbb 


partial pressure of component b gas after 
equalization, psia 


53 . g 


separator friction parameter 


5 4. re f 


separator film reynolds number 


55 . yo 


distance from nozzle axis to outer wall, in. 


5 6 . worn 


angle of outer wall relative to axis , deg 


57. tho 


momentum thickness of outer boundary layer, in. 


58. delo 


velocity thickness of outer boundary layer, in. 


59 . delso 


displacement thickness of outer boundary layer, 
in . 


60. redom 


reynolds number of outer boundary layer 


61. cfom 


skin friction coefficient of outer boundary 
layer 


6 2 . twom 


shear stress on outer wall, psi 


6 3 . vbd 


mean velocity including boundary layer, ft/s 


6 4 . wim 


angle of inner wall relative to axis, deg 


6 5 . thi 


momentum thickness of inner boundary layer, in. 


66 . deli 


velocity thickness of inner boundary layer, in. 


67. dels! 


displacement thickness of inner boundary 
layer, in. 
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68. redim 



69 . cf im 

70 . twin 

71. nna 

72. nis 

73. nib 



reynolds number of inner boundary layer 
skin friction coefficient of inner boundary 
layer 

shear stress on inner wall, psi 
number of iterations required to optimize X(P) 
number of iterations required to converge cn 
s or so 

number of iterations required to converge on 
tb 
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IV. EXPERIMENTAL SYSTEM 



The experimental system can be grouped into three sub- 
systems . These are : 

a) nozzle 

b) air supply system 

c) liquid injection system 

Each subsystem is described in the following sections. 

Figure 11 is an overall system schematic. 

A. NOZZLE 

The nozzle has a convergent-divergent flow passage. It 
is 12 inches long with a variable exit' area. The exit area 
can be varied from .45313 square inches to .84375 square 
inches. The pivot point is located 1 inch above the throat. 
This causes the throat to vary when the exit is varied. 

Since the change in the throat is negligible, it will be con- 
sidered to be constant. It has a throat area of .45 square 
inches. The inlet area is 1.625 square inches. The throat 
is located 4 inches from the inlet. The nozzle is constructed 
by sandwiching two 1/2 inche thick machined aluminum nozzle 
profile plates between 1/2 inch plexiglas plates (Fig. 12). 

The aluminum nozzle plates are located at the end of a 30 
inch long entry section and are easily adjustable. Figure 
13 shows a close up of the aluminum section of the nozzle. 
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Figure 11. Experimental System Schematic 



INLET fLANGE 
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Figure 12 . Nozzle Assembly Drawing 




figure 13. Moszle Geoiueirr'y Schema, “tic 
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The inlet section provides the necessary space for pressure 
taps, liquid injection tubes, and other instrumentation and 
configuration options . 

B. AIR SYSTEM 

The air system is shown in Figure 14. Two 117 cubic 
feet tanks supplied with compressed air from an Ingersol 
Rand two-stage air compressor provides the air storage vol- 
ume required to support the nozzle's operation. Each stor- 
age tank has a pneumatically control Norgren gate valve at 
its exit . These valves are operated by a nitrogen actuator 
and controlled by a pressure regulator. The nitrogen is 
regulated to 40 psi control pressure which will open the 
Norgren valve . 

The nozzle is supplied with air via a 3" i.d. pipe. The 
air supply to the nozzle is controlled by a solenoid actuated 
nitrogen operated 3 inch ball valve . The nitrogen is sup- 
plied via a regulator. By varying the nitrogen supply pres- 
sure to the ball valve, supply air pressure to the nozzle 
can be controlled. Air flow to the nozzle is measured with 
a standard ASME orifice plate. Figure 15 shows the dimen- 
sions of the orifice. The orifice is a model D-10512 with 
a 0.920 inch bore. 

C. LIQUID J.NJECTION SYSTEM 

The liquid injection system, Figure 16, is supplied by 
house water and is further pressurized by an Aurora electric 
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Figure 14. Orifice Schematic 
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Figure 15. Air System Schematic 



pump model/type 317696. The pump is rated at 50 gallons per 
min. The pump supplies pressurized water to the injection 
tube via two flowmeters ( rotometers ) . The flowmeters are 
FSP co. precision bore flowrator tubes. One rotometer is 
rated at 1 to 12 gallons per min. and the other at .6 gallons 
per min. 

The liquid injector is a 0.25 inch brass tube inserted 
in the 3" i.d. air supply pipe just upstream of the flange 
connection to the test section. The injector tube is drilled 
with sixteen l/16th inch diameter holes facing the test sec- 
tion entrance. The drilled holes were made as small as 
possible consistent with achieving a significant liquid 
mass flow rate. 
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Figure 16 . Liquid Injection System Schematic 



V. INSTRUMENTATION SYSTEM 



The instrumentation system is designed for automated data 
acquisition, analysis, and display. A schematic is depicted 
in Figure 17. Where ever possible, test operations and 
sequencing are under direct computer control. Each parameter 
measured involves an appropriate transducer, excitation source, 
and calibration procedure. The major instrumentation sub- 
systems are: 

(A) Pressure Measuring Transducers 

(B) Nozzle Thrust Force Block 

(C) Flow Measurement Devices 

(D) Data Acquisition/Control System 

A. PRESSURE MEASURING TRANSDUCERS 

Pressure measurements are made in fourteen locations 
throughout the experimental apparatus . Eleven Micro Switch 
140PC pressure transducers model PK 87633 are placed on the 
nozzle assembly to measure pressure at various axial posi- 
tions . Specifications for this model transducer are shown in 
Figure 13. The first pressure tap is located at one half 
inch from the inlet along the axis of the nozzle. The 
remainder are placed at one inch intervals toward the 
nozzle exit. These pressure taps are connected to the 
pressure transducers via a 1/4" o.d. plastic tubing. The 
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Figure 17. Instrumentation System Schematic 




140PC SPECIFICATIONS at 10 3 .01V DC, 2VC 



ALL LISTINGS 



parameter 


PRESSURE 

RANGE 

(P*0 


Min. 


TvP- 


Mai. 


UNITS 


F.S.O. (Full Scale Output!* 1 


1 All 


- es 


5 00 


5 15 


Volt* 


Null Offaal 


All 


0 95 


i i 00 


t 05 


voita 


Eidtetlon 


AM 


500 




20 0 


vOC 


Output Currant 


All 










Source 




10:0 






mA 


Sine 




50 








Supply Currant 


All 










#10* ohm load) 






80 




mA 


Overpressure 


0-1 






20 


9 * 




o-s 






20 






0-15 






45 






0-1S/0-30IU 






50 




Operating Tamparatura 




-55* C to ♦125*C(-65 , F to * 257*1 





electrical and pressure connections 



Currant Source 


Currant Sink 




*xe— *-»vi 

T 


*0C»— *-JD*l 


~~ TIFh-. 


«*UT — OUT 

i 'Jao 


S 








WARNING: Damage mey result from reverie! of auppty 
end ground conn act lone. 



Figure 



13 



.40PC Pressure Transducer Specifications 



71 



pressure transducers are mounted on the side panel of the 
nozzle. See Figure 19 for locations. Each transducer has 
an identification letter corresponding to its position. 

Table I is the ID code for the transducers . 

At the nozzle inlet a Micro Switch 200PC pressure trans- 
ducer model PK 87690 is placed in the inlet line to measure 
the dual-phase mixture inlet pressure. Specifications for 
this model transducers are shown in Figure 19 . Gas supply 
pressure is measured using a 200PC pressure transducer 
located at the orifice outlet. This transducer is also 
used to help measure differential pressure across the ori- 
fice. Another 200PC transducer is placed at the inlet of 
the orifice. The data acquisition program calculates the 
orifice differential pressure and then the air mass rate 
using the output from the above two transducers . 

The pressure transducers provide output voltage propor- 
tional to applied pressure. These operate from a single, 
positive supply voltage ranging from 8 to 20 VDC . The 
supply voltage was maintained at 15VDC. 

Each pressure transducer sends back a signal proportional 
to the input pressure. The signal is converted in the A/D 
converter to a digital signal which can be read by the HP9826. 
The pressure transducers were calibrated using a known pres- 
sure source. Appendix F depicts a sample calibration pro- 
gram written for a HP9826 computer. This program reads ten 
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Table I. ID Code for Instrumentation 



Letter Designation 


Description 


A 


10.5" from inlet 


B 


9.5" from inlet 


C 


8.5" from inlet 


D 


7.5" from inlet 


E 


6.5" from inlet 


r 

J. 


5.5" from inlet 


G 


4.5" from inlet 


H 


3.5" from inlet 


I 


2.5" from inlet 


J 


1.5" from inlet 


K 


9.5" from inlet 


L 


inlet nozzle pressure 


M 


force-block signal 


N 


force-block excitation voltage 


0 


orifice exit pressure 


D 

r 


orifice inlet pressure 
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Pressure * A + B(volts) + C(volts) 2 + D(volts)^ 



pressure 



transducer 


A 


B 
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D 
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K 
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0 
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igure 20. List of Polynomial Coefficients 
for Pressure Transducer 
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values of pressure for each 140PC transducer and gives the 
mean and standard deviation for each from 0 to 45 psi in 5 
psi increments . Appendix G depicts sample output of the 
program for a given pressure. Appendix H illustrates the 
program used to calibrate the 200PC pressure transducers. 

The program works as above , except values are taken from 0 
to 60 psi at 5 psi increments. 

Data obtained during calibration source pressure is 
plotted for each pressure transducer (Appendix I). Each 
plot was curve fitted with a third order polynomial. Figure 
20 shows coefficients of the polynomial. These polynomials 
are used in the data acquisition/control program to convert 
transducer readings to pressure readings . 

B. NOZZLE THRUST FORCE-BLOCK 

The thrust produced by the nozzle was employed to deduce 
the nozzle exit velocities. The thrust was measured by in- 
strumenting a target plate in the exit flow field. Appro- 
priate screens were installed to prevent liquid "bounce 
back." The jet momentum force on the target is acquired by 
a balance beam system shown in Figure 21. A Kis tler-Morse 
force block provides an analog signal proportional to the 
nozzle jet momentum. 

The calibration of the force-block was completed by 
placing known weights on the force-block side of the balance 
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Figure 21. Force-Block Balance Beam Diagram 



beam, (Figure 21), and recording the voltage produced. 

Appendix J shows results of this calibration. These results 
were curve fitted with a third order polynomial . The follow- 
ing is the volt-to-force conversion polynomial: 

F B = ( 1/453 .6) *(-234 . 396+48 715 . 2 8*VOLTS-11261 . 54*VOLTS+33 899 . 3* VOLTS ) 
FN = FB--L3/LN 

FN = FORCE AT NOZZLE EXIT ( L3F) 

FB = FORCE AT FORCE BLOCK ( L3S ) 

L3 = LENGTH FROM PIVOT TO FORCE BLOCK( IN . ) 

LN = LENGTH FROM PIVOT TO DIRECTIONAL OBSTRUCTION ( IN . ) 

C. FLOW MEASUREMENT 

1. Air mass flow measurement for the system achieved 
by measuring the inlet and outlet pressure on a D-10512 ori- 
fice with a 0.92 inch bore. For details on orifice see 
Section III . Air flow is calculated in the data acqui- 
sition program. The program uses the following equation 
obtained from References 4 and 5 . 

M_ ir = K A 2 Y/2GT p n (P1-F2) where 



ttD 2 FT 2 

4 



K = CE 

E = 1/ (1-B 4 ) 1/2 
3 = d/D 
C = 0.60 

Aj = AREA OF ORIFICE 
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32.2 FT/SEC2 



G 

c 

p n = DENSITY LBM/FT3 

PI = PRESSURE AT INLET IN LB F/ FT 2 

P2 = PRESSURE AT LUTLET IN LBF/FT2 

M . = AIR MASS FLOW RATE LBM/SEC 
air 

The discharge coefficient C is the factor that accounts 
for losses through the orifice. Since the values of C varies 
from .62 to .60 for R^ number from 10 4 to 10 7 with 8 = .3, 

C will be considered constant. 

2. Water flow measurement was made using two rotometers . 
Calibration of the rotometers were made by measuring the 
time for a given weight of fluid flow. The mass flow rate 
was calculated and plotted versus the rotometer reading. 
Appendix K is the plot of the results . The plot was curve 
fitted with a third order polynomial. The following is 
that polynomial: 

MH20 = - .006 326 8+. 0 0 2 0 9 72 7 3*RR- . 00 0 0 0 6 5 8*RR 2 + 1 . 1X10 *RR 2 
where RR = rotometer reading 

D. DATA ACQUISITION/ CONTROL SYSTEM 

The heart of the data acquisition system is a HP9825 
small computer. The HP9826 communicates via a Hewlett 
Packard 349 7 A data acquisition/control system. This system 
gathers data from the pressure transducers and nozzle thrust 
force-block. It converts the analog signal to digital data, 
and stores the data in memory. Figure 22 shows a pressure 
transducer to A/D converter channel connection, and Figure 2 
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Figure 22. Transducer-to-Channel Connection 
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Figure 23. Force-Block-to-Channel Connection 
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figure 2 l i . Bus Connection-to-A/D Converter Connections 



the force-block to A/D converter channel connection. Figure 
24 depicts the current connection to the data acquisition/ 
control system bus from the sensors. 

The data acquisition and analysis program is a fully 
automated system which integrates the use of the HP9826, 
HP3497A, and all sensor devices . The program can be divided 
into three sections : 

1. Data Acquisition - Data is acquired from 15 differ- 
ent sensor devices. All system parameters are ini- 
tialized and configuration types are inputted into 
the computer memory for future use . Ten readings 
are made on each sensor and a mean value for each 

is calculated and stored in memory. 

2. Data Conversion - Input data conversion is completed 
by using calibration information obtained on each 
pressure transducer and force-block. The program 
takes the stored mean values from memory, and 
converts the input voltage to a pressure or force 
using the third order calibration polynomial for 
each sensor. 

3. Data Analysis - This is the heart of the program 
in that all performance parameters are calculated 
and printed. It uses all of the above information 
to calculate mass flow rate of water, mass flow 
rate of air, total mass flow rate, thrust, mixture 
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ratio, exit velocity and all pressure informa- 
tion. The following equations are also used: 

Exit Velocity = ( Thrust /Total Mass Flow Rate)* g c (ft/sec) 

Mixture Ratio = m , /m . 

water air 

Total Mass Flow Rate = rii . + m • 

water air sec 

Appendix L is the data acquisition program and 
sample output . 
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VI . EXPERIMENTAL RESULTS 



Six test runs were made using the equipment described in 
the previous sections . It was found that the inlet pressure 
to the nozzle remained nearly constant for each setting. 

The testing was conducted by maintaining a constant air 
control valve setting and varying the mass flow rate of 
water. The regulator outlet pressure of the nitrogen bottle 
which controls the air valve was set at 30 psi and 15 psi . 
These settings correspond to nozzle inlet pressure of 35 + 
1.0 psi and 29 + 1.0 psi respectively. For each nozzle in- 
let pressure, experimental data was obtained at varying 
mass ratios of water-to-air in the range of 2 to 13. These 
experiments were conducted with three discharge area ratios 
(A^ . /A *.) . Those ratios are: 3.5 86 , 2.600 , and 

1.3259. The results of the six experimental tests are dis- 
played in Tables II through VII. 

Inlet air was limited to a maximum value of 40 psi. 

The 140PC pressure transducer’s maximum output pressure is 
40 psi, (see information on 140PC transducer Figure 21). 

The experimental system has the ability to reach higher 
pressures. The present configuration may be operated to 
70 psig. 
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Table IV. Experimental Data Exit Area = .62500 sq . in 
Inlet Pressure = 29+1. 5psi 
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Table V. Experimental Data Exit Area 
Inlet Pressure = 35 + 1. 5psi 
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Table VI. Experimental Data Exit Area 
Inlet Pressure = 29 + 1. 5psi 
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VII. DISCUSSION 



The results of this investigation are in two parts ; the 
experimental test results and the computer outputs based on 
initial conditions similar to those of the experiments . 

The key variables are : the nozzle overall area ratio 

A^, liquid/air mass flow ratio, nozzle exit velocity, nozzle 
supply pressure, nozzle thrust, and the nozzle axial pres- 
sure profiles. Figures 25 through 34 present the exit vel- 
ocity vs. mass ratio results for the experiment and computer 
output. Figure 29-34 illustrates the comparison of the ex- 
perimental results and the corresponding computer output. 
Figure 35 illustrates the variation of nozzle thrust with 
mass ratio for different area ratios and inlet pressures . 
Figures 36 and 37 present the axial pressure profiles. 

In all cases the exit plane velocity decreases as the 
liquid/air mass ratio is increased. In the low mass ratio 
range Ci.e., less than ~ 5) the velocity decrease is very 
pronounced. Past a mass ratio value of ~ 10 the velocity 
of the mixture becomes relatively insensitive to the mixture 
ratio. This is as would be expected. For the same inlet 
conditions there is a fixed amount of energy available for 
conversion to its kinetic form. In the nozzle process the 
energy is conserved and thus an increasing mass ratio is 



92 



manifested in a decreasing exit plane velocity. In all cases 
the agreement between the experimental tests and the analytic 
predictions are with in 1 10%. 

There also was apparent and a consistent trend with re- 
spect to the nozzle area ratio and the exit velocity. As 
the nozzle exit area was increased the exit velocity of the 
mixture decreased. The effect seems to be more pronounced 
at the lower mass ratios. This trend was confirmed by ob- 
servations of the actual flew field in the nozzle . If the 
exit area was increased significantly (beyond the max area 
used in those tests) there was evident an abrupt and severe 
separation within the diverging portion of the nozzle 
passage. This was accompanied by a drastic decrease in 
exit velocity as evidenced by the output from the thrust 
target. It appears that the diverging portion of the 
nozzle, at a certain point, starts to behave as a subsonic 
diffuser and hence experiences an adverse pressure gradient. 
This reasoning is in part confirmed by the pressure profiles 
identified in Figures 36 and 37. 

The relationship between measured thrust and mass ratio 
(Figure 35) indicates a slightly increasing trend. This may 
be explained by considering the following. Each set of data 
points (at constant inlet air pressure and constant nozzle 
exit area) is developed by varying the mass ratio. This, 
in turn, is achieved by increasing the liquid rate by in- 
creasing the liquid supply pressure . The net result is an 
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increase in the liquid inlet velocity or an increase in the 
inlet energy level. Thus a particular data set is not truly 
at a constant inlet energy level but is increasing. 

Perhaps the major discrepancy between the experimental 
test results and the computer analytic model is evidenced 
in the axial pressure profiles of Figures 36 and 37. It is 
clearly evident that at a certain point the nozzle passage 
reverts from a nozzle to a diffuser. This transition point 
occurs slightly downstream of the throat and the pressure 
starts to increase . 

Unfortunately the computer analytic model requires a 
pressure profile as an input. Furthermore the pressure pro- 
file must be continuously decreasing. Thus the profile as 
obtained from the experiment are not directly useable. The 
situation is examined with the aid of Figure 38. Curve A is 
a typical axial pressure distribution as obtained from the 
experiment. Curve 3 is a pressure distribution used by 
Elliott in the application of his computer program. Pressure 
profiles C and D were arbitrarily defined and the exit plane 
velocity for each was calculated. Velocity variation in the 
range of 1% is evident. It appears that the final exit 
velocity is relatively insensitive to the actual pressure 
profile in the nozzle. 

In light of the preceeding difficulty of matching the 
experimental pressure profile to the computer model and the 
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apparent flexibility of the type of pressure profile it was 
decided to employ a form of profile D of Figure 38. Thus 
instead of using the actual experimental pressure data as 
an input in the computer model, a profile resembling curve 
D was developed for each inlet pressure case. 

It is apparent that within certain rather wide limits 
the Elliott computer model yields results that correspond 
within 10% to results obtained from the experiment. The 
general trends have been confirmed and their behavior has 
revealed nothing unexpected. The conclusion of Elliott 
[Ref. l] has been largely substantiated. "It is very 
difficult to design a bad or a good dual-phase nozzle." 
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Figure 25 . Mass Ratio vs. Exit Velocity at 
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Figure 27. Mass Ratio’ vs. Exit Velocity at 
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Figure 31. Mass Ratio vs. Exit Velocity at 

Pressure = 35+1. 5psi Area = .62500 
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VIII. CONCLUSION 



A set of experiments were conducted with an air-water 
mixture flowing at a mass ratio from 2 to 13. The experi- 
ments correlated well with a dual-phase two-component 
computer program. It appears that the program will permit 
prediction of the exit velocities to an accuracy of 10% 
for two-phase nozzles . At small nozzle area ratios , accu- 
racies between theoretical and experimental are better; 
approximately 5%. All predicted velocities are higher 
than measured experimental values due to estimation of the 
drop size and the initial kinetic energy of the liquid at 
injection point. 

It would be desirable to develop a drop size subroutine 
to better estimate varying drop size. The experimental 
system can be improved by velocity measurement devices at 
the inlet. Input of the gas and liquid velocities are 
necessary in the dual-phase two-component program and thus 
these measurement devices are vital for better accuracy. 

Due to the insensitivity of the pressure distribution, 
it appears that any reasonable approximation to the pressure 
profile can be employed in the two-phase two-component flow 
program. For a given nozzle exit area and inlet pressure, 
a pressure distribution curve can be obtained through the 
experimental system. This distribution can therefore be 
used to obzain good results . 
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APPENDIX A: SAMPLE P(X) PROGRAM 
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APPENDIX C: SAMPLE MOLECULAR WEIGHT PROGRAM 
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APPENDIX D: SAMPLE PROPERTY TABLE 
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APPENDIX E: SAMPLE INPUT DATA 



o 

<M O 

«o 

00 • r -4 

OO • 
cmcmO 



cmO m 

coo «o 

cm 

• com • 



< 




Cl 




2t_ 




--4 


t >*- 


CM 


cjoo 
o «o 




o *r-o 


a 


• CC fA • 

ocMino 



Q O t-J ^ ^ r~4 r> » ^ »— < ^ *— < r’ 4 

OOOOOCOCOOOOCJCO?C)CCOCOCOO 

+ + ++ 4 -+ + + + -**+^+ 4 » + ^ + 4 *++ + ++ + + 

coomcx: nan cr X ^ ^ ^ o r, c C no 

COCM^IAOm* cor 

<\j A- in cr nJ- jo rvj r- *— * a O la cr ro co r .'•*■* *- * %c o 3 s r'i cr c i 
coo^(^>i- vcr-cro^o^roN^ ocmo ir.oso oo 
-h ir. cr rnf— — ‘inO'J’occMNC 3>r ^ rnr^^intT*r^c5o 
cm o -h (\i co m m <r ^ in n o >c cr>a: cc O' C' — < 



cn m m m m ro rn <v r\j rj cv cm <m c\ ■ c\ t r\ t cm cm cm a* cm cm r i c\ o 

OOOOOOOOOOOOOOOOOOOO^OOOO 

+ 4 . + ++ + + + -f«*--*' + ++ -r*‘ + -i--*“-f‘ + -*+H* + 

ocoo' c^^osjr-t^ rise 4 0 '^tr <r o ia. r- o 

oo cr r« i o cl^ct ^ c vO ^ r°. vT o c: u > a' rv jo o 

in coco O' a- vf n-nu+ Or-<A>r- cvcrcr lt oo^^'r-j^cco 

GOsOsCtr^rriOrr.ocr.'Or^C^ x -t < <J' <T O' <t & O 

XA-r ^0 'Ori vT m C vC OIT C ^ (\ oc S>C'tO 

cm a i <\r— *«-* —4*-4 O r- ^Cip M“>r r - rr cvaj cnCMcM—* — 



O CD «— I *— ^ ^-4»- J »— I »“< r-4 ••4*— 4 *— < »—— < •— * P—4 «~4«— 4 «— 4 *— 4 *^”4 (NJ 

ooooonoco^cococaoooccooco 

+ -*.+ + + * + + 4 -- + - 4 .-*.+ 4 .^ + 4 .+ + + 4 -++ + 

>j‘'Ococr-ON ^cr'ODn^o , ''ncc niirc'' <* i mccm 

^ . sO O ^ or r^r- a O CD r~ rv j >•' o m* 

^u^OH^O'ry cn co c\ >c— 'in UvTU'r^tNjO*- »u -oao 
co Ai f^- cr c a * m >c co c- r-H a. * r tA <? rr t*' (ni ir o 

rr ir ^ cv c —nr C r* r- r r m<>rD 

•—4 LT* cd — ^MMrrir^M^Nnmr.u'.oc^NavXcrc a**— ‘ 



IUO 

-Jcr 

isf 

M 

a 

z 



ro ro cA mrA c<“. m njrv* rsj r :<v c\j r * ru rvj rv CMr • c\jrj cm Cmcncm 
OOOOOOOOOOOOCDOOOO OOOC DCOO 

— oor7vrrccirrr nc mxcvjO 
Ofvo^’A — r. rw Oir.r* *o t>J cc >C DCCf 
^OrcNvl-nNroNCMTi^r-rM^trxc^rv^NO 



O <^r^:c:fNj(\Nfvir-tr.cr*-(\icocr;rvD-‘^r.rC k ^o 

co om cxir or- r-ajcMr- xom'T 

m #0 Airiest cv^h — 4 — c .'C<'in*TM-rrrnr jfNjf\:cMfM^-4^— 4^*^t 

O ’OO • ♦*•♦•♦•••••♦••♦.• • 

• OO • 

O I CM O 



O 

m 



o 



o 

X 

O' o 



m 



ocoo'Jocuo , '-'onuuoaucuuc:uoo 

+ +-f+«l. + 4 - 4 -^«f 4 .t 4 .'f 4 . 4 .-f 4 .^++'»t + 
o aint M' rs.w-*v;>fNja>^ c\ju co— * u>cu — <>ta- » rr* 
OrOvO r\r^»— ur .o^rrDr r-^-4<;c_3 > rc rs rir^rsiooa^cj ro 

Ovj a;nr-f\j>LrMt;'r M*corar-r\jo^ AC cc r.r^H'C 

O^orN^t^f^erro— - AJv^L~^c^r',^ro^tr'^-ar - D*-JroM“ 

in O •—* CM {Nj^Q-sj ? ',N -’• l P7' rf, X >\j O C vT — T\D 

O in o UsT^'^ — fv.'^JMr , \fM^'T>Tuur 1 0 'L( s *r-r-ct.coccrir 

• ouo • ••»•••••••*•%•••••••«••* 

O • • • 

Ncoca. 

sO — im r^f^r^mrrscMnjntcMrMCs'rjn.cvjnjrMn’cvm^JrgCM 

I ’ iviOOOOOO 30 0000 30 OCOCOOOOCCDO 

LT vLMi'U^CQJ 'CO'MU UM>j»u'»ut^uiI' v u*u^i*'Or* , '>T 

oo ‘O^vj^ho— ‘ vT 'i;OCJt v >»'Uf\,wn^^>r'Cr , "<-»-'U 

• u*i'y‘cco( s ‘ rMinsip ir. u — CMa'r*^rvj-*ir^>r>TnimvCU' 



»— i O •OC'Cnn»- , ir\<^aj^rinrjoNc.OsNQ > j-j'^c7.vr 

-J • 2 U‘X'OfMxnc/J>o--»*-'NTaj'jojuu , .riMC^^iri'r 

*-• cn oo*-^CMr\jrsicM^»- 4 «-*-> 4 Xf s - sum vro"ir'mfVfVfM<Mr 

d • i-4 • •••«•«•••••••••••#••••••• 

0 l c UOO 

<4. I 4-4 CM —4 



12 3 



APPENDIX F: SAMPLE 140PC CALIBRATION PROGRAM 
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APPENDIX G: SAMPLE OUTPUT TO CALIBRATION 1 PROGRAM 

THIS DATA IS FOR A PRESSURE OF 0 PSI 
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APPENDIX H: SAMPLE 200P.C CALIBRATION PROGRAM 



3 



co 

a: 

LUUI 
CJ CD 
3 <r 
ci cr 
CO UJ 
2 :> 
<r 3 
cr 

H-O 



cr x: 
3 <r 
co cr 



co o 






a 




LU O 






• 




C£ OS 






3 




CL Ol 






1— 










3 




KH UJ 






Q 




CO 3 




3 






CLH^ 




1 


= 3 




— 




CO 


O 




0 3 — 




a. = 


CO Ll 








3 


3 




— HH -O 




• » 


3 h“ 




3 CO 




>- 


• *■ •— 4 




UJ 




• •* 


>- 3 




1— 3 — 




3 


•-3 




30 — 




Ll 


3 




cr >- — 




O 


1— Q 




CO w 






3 3 




MCOOJ 




UJ 


3 




30 £ 




cr • 


h— 




o 3 3 




3 


UJ 3 




CJ- i— i CO 




CO 


CO o 




O • 




CO 


J— 




o<r^ 




UJ 


CO »— 




1 — lu — 




cr 


H-I 3 




QC — 




3 


CO 




Q w 






LU 




UJ 3 C 




3 


cr lu 




0*5 O OJ 






33 




3 O 




cr 


CO 3 




H- Z 




o 


CO hh 


: s a- 


CO 3 - 




Ll 


LU 1 — 


1 T— T— 








cr 3 


h— 1— H* 


O — 




CO 


30 


i> r> r> 


33 — 




H- ♦ 


u 


cm — <r ~ lo « 


33 w 






LU 


r-Hr-HT-H 


3 £ 






3 LU 


1 »M »l— 1 ~ 


OU 3 




3 


r— 3 


3 — 3 C\l 3 CO 


O 3 CO 




cr 


1— 


Z w S w 5 w 


CC H- - 






LU 


•-X 


3 — 


— 


CO 


O 3 


Cl ■ ~ Cl • -Cl • <► 


cr o 


— 


>— * 


3 CO 


zocnccnoo 


CO UJ o 






O 3 


NONONO 


*— 1 1 — — 


o 


h~ 


3 


G 



33 
UJ — ' 

= = — 3 — £ 

*~ I— X !— >— I— HH 

33 33 CT 

hm 2;mclOC^CL 
cr cr hhct z « o 

dO.QO.H>-L 



cr cr 

Cl. CU 



CT CT CT 
Q-O. CU 



O 3 DC 3 i 

UJ— 3LU3I 

3 + CO II H— H~ h— j 
— ' >- 3 »-h3 Z 3 : 
CSC H 3 O UJ O I 
0->CLCC 

o 



: 3 cr 
I CL UJ 
■ h— H— * 

:3z 

ioui 



X 

UJ 

3 



12 3 



3 3 



00 



> 

Ld 

O 

Q 

OC 

<r 

Q 



00 



c 

nj 

0 





X 
















X 






•» 


3 














w 


"0 




















* 






HH 


z 
















T3 






















LO 




CM 
















“O 


*> 


s 


'w' 


~Z 


• 














s 


L0 


X 


<r 














c 




-J 




Ld 














H3 




Ld 




z: 














<D 






KH 
















T 


3 


2 : a 


•» 
















1 




<r 


w— 




















o 


w 
















HH 




CJ 00 


X 
















•» 


-*-* w 




• » 








l-H 








“0 


— c 




3 
















w 


1 CO 




o 








"O 








X 


2 : 0 




Q 








w 








■'W' 


— 21 




o 








X 








+ 


X - 




Q 








+ 










— ~o 


CM 


• 








*-* 


O 








“O 




o 










X 






w 


w 3 




o 
















C\J 


CM 




3 








£ 


“O 






e 


£ 










2 


3 


W 




2 : 


3 


3 




o 








00 


£ 






uo 


UO— * 


/•» 


2 : 






0 


It 


3 




0 


11 


— ' d) 




zhh 




00 


H— 


—V 


OO 


00 


H— 




cc c 




LD 




0 




"O 


n 






“O 


0 c 




oo 




0 11 


r— 




N 


0 


1 — 


w 


OO H3 




p— 




) — *-» 


11 


£ h-i -O 


t— 


tl 


CM HH 


B JZ 




i— 




“O 


M 


3 


w 




t— 1 


£ 


— O 


ss: 


— 2 : 


Z = 






UOH- 


c 


' — 







• or 

CL I 



Ct" X HH *— i HH hH n* 

ccsccrcco lj oc cc oc o: o 

Cl 0- CL CL L_ SlLClClCLL. 



e cz 

» 30 
UO Ll. 



X 

Ld 



X 

Ld 



n cn 

•o o 

Ll 

GC 

o 



cox 

Ld XJ 
O uO 



— -o 



X * — • »— • 
l£ Ld CL CL 
CL ZL C. 



12 g 



PRINT 
NEXT T 
END 



VOLT 



APPENDIX I: CALIBRATION PLOT OF PRESSURE TRANSDUCERS 




Calibration Plot of Pressure Transducer A 
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Calibration Plot of Pressure Transducer C 
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Calibration Plot of Pressure Transducer D 
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Calibration Plot of Pressure Transducer E 
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Calibration Plot of Pressure Transducer F 
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Calibration Plot of Pressure Transducer G 
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Calibration Plot of Pressure Transducer H 
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Calibration Plot of Pressure Transducer I 
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Calibration Plot of Pressure Transducer J 
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Calibration Plot of Pressure Transducer K 



140 



VOLT 



5.83424 

5.58424 

5.33424 
-5 .38424 

4.83424 

4.58424 

4.33424 

4.08424 

3.83424 

3.58424 

3.33424 

3.08424 

2.83424 

2.58424 
2.33424- 

2.08424 
■ U. , QD 4 3 4 



& 



/ 



/ 



/ 



/ 



/ 



/ 



/ 

/ 



/ 



/ 



/ 



/ 



/ 



/ 



/ 



/ 



/ 



/ 



✓ 

- / 

k 



1 H — h 



+ 



+ 



wininQinininQinininoinioinQinU) 
• • • oj • cv • oa - co • ^r 

cufN-ojrwojpwcurwcu 

OJ cvi o) CO V 

Pressure ( psi ) 



Calibration Plot of Pressure Transducer L 
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Pressure 




Calibration plot of pressure Transducer 0 
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Calibration Plot of Pressure Transducer P 
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FORCE (lbf) 



APPENDIX J: CALIBRATION PLOT FOR FORCE-BLOCK 




Calibration Plot For Forca-Block 
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Mass Flow Rate of Water (lbm/sec) 



•APPENDIX K: CALIBRATION PLOT FOR ROTOMETER 




Calibration Plot for Rotometer 
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APPENDIX L: DATA ACQUISITION AND ANALYSIS PROGRAM 



3 

4 

5 

7 

8 
10 
30 
40 
SO 
60 
70 
80 
90 
100 
110 
120 
130 
140 
ISO 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
261 
262 

263 

264 

265 

266 

267 

268 
270 
440 
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PRINT "INPUT ROTOMETER READING" 

INPUT Rr 
PRINT Rr 

DIM A(14),B(14),Cl14),Dist(14),D(14) 
DIM Press( 14) 



DIM X< 18, 100) ,S 
Nr 1 0 

FOR 1=1 TO N 
OUTPUT 709;" 
ENTER 709:X( 
OUTPUT 709;" 
ENTER 7 09 : X ( 
OUTPUT 709:" 
ENTER 709 ; X< 
OUTPUT 709:" 
ENTER 709 :X( 
OUTPUT 709;" 
ENTER 709:X( 
OUTPUT 709;" 
ENTER 709 : X ( 
OUTPUT 709;" 
ENTER 709:X< 
OUTPUT 709;" 
ENTER 7 09 : X ( 
OUTPUT 709;" 
ENTER 709: X( 
OUTPUT 709:" 
ENTER 709 : X ( 
OUTPUT 709;" 
ENTER 709: X( 
OUTPUT 709;" 
ENTER 709 ;X( 
OUTPUT 709:“ 
ENTER 709 : X ( 
OUTPUT 709:" 
ENTER 709 : X ( 
OUTPUT 709;" 
ENTER 70S ; X ( 
NEXT I 

FOR >1 TO 16 



um( 18) ,Mean( 18) ,Sum2( 18) 



AI1VT1" 
1 , 1 ) 
AI2VT1 “ 
2 , 1 ) 
AI3VT1 " 

3.1) 
AI4VT1 " 
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5.1) 
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6 . 1 ) 

AI7VT1 " 

7.1) 
AI8VT1 " 
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AI9VT1 * 
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AI10VT1" 

10 . 1 ) 

All 1VT1" 
11 , 1 ) 
AI12VT1 ' 
12 , 1 ) 
AI13VT1 ) ’ 

13.1) 
AI14VT1 )" 

14.1) 
AI1SVT1 ) " 

15. 1) 



Sum( J) =0 
FOR 1=1 TO N 

Sum( J)=Sum( J)+X( J. I) 
NEXT I. . 

Mean( J ) *Sum ( J ) /M 
NEXT J 
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520 FOR 1=1 TO 1* 

530 READ A ( I ) , B (I > , C 1 1 ) . D < I ' . D i ? I ) 

540 DATA -6. 049177, 3. 92593, -.1/330131, .0112105. .5 
550 DA 1 A -7. 059265, 4. 233834, -.2292065, .01415403, 1 .5 
560 DATA -6.4905288,3.93412037, -.160249802, .009448598, 
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APPENDIX M: DUAL-PHASE TWO-COMPONENT COMPUTER PROGRAM 
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no nnnnn 



7TS 



YO 



DIflENS TON PL ( 10) 

'tun AY (75) 



c (6) ,A P (2,75) .XXA <*f f DSL 

75) ,HTMS) -DI1JT (8) 

(NDKAY j 1) , DRAT (1) ) 



K? ( 2, 75) , PL1 
(100) ,DSRAYl ( 



OTMFNSTC. . _ „ 

DIJIi-rSION DATE (5) .CAGE (3) 

1 C (6) ,AP(2,7$) ' 

2 1 (100) , DKAY (7^* 

EQUIVALENCE ' 

XX=-1.0 
S.MIti = 1.0F-6 

IZFRO = 0 

roar * 75 

DINT (1) = .5 
DINT (2) = . 1 
DINT ( 3) =.0 1 
DINT (4 =.001 
DINT ( r >) = .000 1 
DINT ( f >) = .C?30 1 
PINT { 7 1 =.003001 
DINT h) =.0000001 
CALL ADATA 

INITIALIZE TA3LE TAPE. 0RING IN PERMANENT TABLES 
FILL ARRAY INDICATING TEMPERATURES INCLUDED I It 
DIMENSIONAL TABL r S, INITIALIZE PAGE COUNT. 



TOS , ZZZ , NSTftT M U w TO S 0 

MAIN UM 70 

r a t n jmo 

(IP), /« A I'' 0 ; t‘*0 

100) , TDR AY (IOC) ,70RAY v \i? UOO 
* \IN G‘M0 
4 UN PR ^0 
MM N t 0 
M Ufi v l'i0 
MAIN 096 J 
M A I ‘J J 3 6 0 
MAIN J970 
MAIN 0990 
MAIN ) 3 » 0 
MAIN 1000 
MAIN 1310 
MAIN 10 23 
MAIN 13 30 
MAIN 104 0 



(ONE- DIMENSIONAL) , 
T Vi O 



100 



101 



909 
23 0 



201 

292 
20 1 
J 00 



20 1 
302 
JOJ 
004 
305 
400 



40 1 
402 
40 3 
500 



501 

532 

bOO 



601 

6020 

502 

700 



800 



LPGC7= 1 
CALL TA3IE 

CALL I NT BP (7 AR ,0 , 7, P) 

ACTIVATE i ME FOLLOWING CARD TO GET A PRINTOUT OF THF PROPERTIES 
CALL IN7FP (VAR, 20,7, P) 

NSI>T=J999 
CONTINUE 
CALL N EC T 1 

IF (NS7*T-5)499,5, 101 

CONTINUE 

If (‘1ST- 7-99) 99 9,99, 200 
CALL DUMP 
COM IN 9 F 
CALL SECT2 

IF(SSr-T-uC) 9 9 o, 3 00, 23 1 
I?(NST*T-60) 999,300,202 
I ? (NN7-<~-b0i n 1 9 nr-) .20 3 
IF (NUf MT-IIO) 999,730, 3 99 
CONTI fUE 
CALL 2ECT3 

IF (NSTMT-3C) 99 9,70 ) , JO 1 
IF (MOT *7-79) >99.533 . 102 
IF (NST-T-1 13) 999 ,700, 1 03 
I? (NOT MT - 1 4'*) 9 99 ,200, t04 
I P (N r <7 - 1b I) 9 99. 20 0 . 305 
IF (N STMT-1 142) 9 49,230,999 
CO NT I N 9 g 
CALL 5 E CT4 

IF CtSTMT- to) 999 200.40 1 
IF (NET M T- 1 10 ) 994,700,402 
IF (N STMT- 140 9 94,600,403 
I ? ( S S 7 M 7 - 1 6 1 ) 0 99,200,499 
CONTI N U F 
CALL SECTS 

IP ( N T T M T - i P) 999,203 , SO 1 
IF (*<S i “T - 1 10) 9 99 .70 0 .502 
IF ( NS F M T - 239 9) 99 9, b 0 0, 99 9 
CO?. riNUE 
CALL SECTS 

IF (S3~*T- 100) 9 99, 50 0, oOl 
1° (N3TMT-1 13) 9 99,70 0,0 02 0 
IF (NET "7-5 29 1 999.800,b02 
IF (N ST MT- 1490) 996 ,500, 999 
CONTINUE 
CALL T HHC AT 

I? (NST.MT-4 97) 9 99,800,999 
CO NTINU2 



MAIN 7230 
,M A r ;; 1 2 u 9 
"US 1 2 C '0 
MAIN 1 2b 0 
"At N 1270 
MAIN 1230 
.MUNI 2 30 
M AT N 1 100 

MAIN mo 
•AIN 13 20 
MAIN 1 J J 0 
M A T N 1 14 0 
M UN 1 360 
.MAIN 1 J b 0 
"U s 1 170 

“AIN 1 180 
MATS 1 390 
" A r N 1 4 0 3 
M A I I 14 10 
MATS 1 u 2 0 
MAIN 14)0 
MATS luuD 
MAIN luEQ 
MAIN 1 4 • * 0 
" U‘114 73 
MAIN 1440 
"AIN M f M 
"Al N 16 00 
MAIN 1510 
MAIN 1520 
mu*: is n 
MAI?: 1 6 U o 
MU N U50 
MAIN 1 5 ;> 0 
MATS’ 1 S70 
MAT ’I 15^0 
MAIN 15 10 

MATS IS 00 
M A T N 1 b 1 0 
MAIN 1620 
MAIN 1b 10 
-AIN 1 b 4 0 
M A r N IbSQ 
MATS IS*' 3 
MAIN 1 b 70 
"MS 16 90 
MAIN mo 
MAIN mo 
•MATS 1713 
MAIN 1770 
M A t K 17 30 



L51 



nn nnn 



CALL DIAGNO 

IF (MSTNT - 10} 9 9 9, ICO ,*01 
801 I F <NSINT-63) 999,400 , 939 

LAST CASE JUST C Of! I LET ED . 

AND TF 9 NINA T1? PPOCESSING. 
99 T= l PGCT 

CALL TS TFP (VAR,20,T, P} 
WRITE (6 ,9 JO 1) 

STiJP 



PRINT OUT ALL INPOT TABLES 



9 001 



END 

SUBROUTINE 

CONNON T222AT 
DIMENSION TZ '2 7. A Y (11201) 
THE ABOVE CO N NON LLO^K I 
IT DUST EE THE FIT 



COflNON 

1 

2 

J 

a CEG 1 
CONNON 

6 

7 

8 
9 

COHHOH 
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3 

4 

CONflON 

6 

7 

8 



A 

ALPHS 

33 

C 

CAL 

cnis 

CFO IS 

CL1S 

DD 

DEL OS 
DEN AG B 
D Li I S 
DPI 
u S .1 A X 
DoR E3 
DTS 
ST 
0 Y 3 
ENBG 



A U A ,{ 

a r 

BSTAb 
C 1 

CASE 

cor 
CG*n 
CSAVF. 
DELIA 
n E LS I 
B L N A G 
0 L 0 S 
DRO 
0 3*11 N 
D5 

DTiir 
DVaSQ 
?. 3 
ENG 8 



EOS 



L 1 AG 
EGGS 



9 


r.KL 


, "NLS 


, eh; 


, "SO 


, KLE HP 


, FU X 


SK'TI 


COKflON 


H 


, UJI 


, liKAG 


, !ii\SG 


, H K i N 1 


, hk;n2 , 


GCC1 .'‘‘VO 


1 


H KG n 


, If KG NS 


, IT LAI 


, ill. AN 


, H L A 


, JII.AS , 


G EC 1 S2‘ ? 0 


2 


HLB 1 


, (J L El 


, F! LB 


, UL3S 


, i N 


, ^1S 


S SC 1 0 2‘>9 


3 


HO? F 


, IT 


, I AC V 


, IDLW 


, I DL X 


, I J* , 


sm 0 3 30 


4 


I Jri 


, IN'" 


, is~r 


, TZT10 


, •< 


, > 1 


SZ^l >310 


con non 


K2 


, SAP 


, KDSCT 


, < DS 


, ? L 


, KB 1 


S PC 1 ?1P0 


6 


KF 


, KTDCT 


, *T'J 


, K X P 1 


, * XP 


, L 


se: i »o 


7 


LI 


t > 


, LCT 1 


r LCT 2 


, LL 


, LPSCT , 


S ZC 10 14 0 


9 


LOW 


, * RH 


, IfT" 


, n ? r 


, NG n O 


, nn , 


S*r ] 1 


9 N 


, no? 


, NT HT 


, S AC V 


, N3 


, • C LK 


, 4C?S 


SEC 1 0 j'>0 


connoN 


NDE AG 


, :«* do 


'% GG 


, *i r «j 


r N IS 


r N LS r , 


SEC' T 170 


1 


.i HA 


, rt N l> 


' NNi)S 


, N N N 


, ?' ? 


, NS , 


S SC 1 j HO 




*i NS 00 


, :i n so 


, N NS 


» NP 


, j SO 


, NS , 


S EC 1 J If 0 


J 


P 


, P 10 


, P 1 1 


, PAD 


, PATH 


, PA , 


Z EC 1 0400 


4 


P AS 


, ?3L< 


, PENH 


, pnoa 


, ''BO 


, ?b 


S EC 1 ) 41 0 


connoN 


PBS 


, PIIIAB 


, PHI dA 


, PHI 


, ''[NT 


, PL , 


ETC 1 0420 


6 


PL 1 


, PO 


, PS 


f r? 


, 3 


, oro 


S EC 1 0 4 » 3 


7 


a i 


, R A 


, a AS 


, n .\xo 


, A A X 




SEC 1 Ou^O 


8 


SC 


, E DLL IN 


, HD’* LON 


, an ins 


, A SONS 




SECT ) 4 S 0 


9 


am 


, fcZNS 


, RES LIN 


, ? '‘SO 


, .1*17. 


^ : ;<inc. 3 


S EC 1 04* 0 


connoN 


CKO G 


, KUGG3 


, a HOLD 


, R.HOLN 


, •< Ff 0 L 


, ''''JLS # 


S FC1 0473 


1 


an 


, nt 


, a n 


, F.OALB 


, ROAL 


, rGELB , 


SZC 1 C4H3 


2 


303 L 


, 3 ON 


, no 


, a 


, :<3Lin 


.as , 


SEC 1 1400 


3 


av3 


, ?v 


, a vs 


, s 


, 3 1 


, 12 


S EC 1 oSOO 


4 


S3 


f _> 4 


, s \ 


» 33 


r SGN 


, SIS 


C ZC1 >3 10 


CONNON 


SIGS 


# SHIN 


, SNJ1 


, S*J2 


, *mc 


# SNLD , 


5 EC 1 0920 


6 


SALE 


, y N Lr 


, 3*1. G 


, SN 


# so.n 


, ~OJ2 


S ZC 1 OS t 0 


7 


SOP 


, so 


, SOS 1 


, ss 


•; i ;* 




P EC 1 J S 4 J 


9 


T 


, :b 


, 3 3 AY 


, T n P\Y1 


, T G 7 3 


! "GO ' 


S PC 1 GSSO 


9 


TG 


f 4 1 9 J 


, THIN 


, THIO 


, " i : 


T 2 


S EC 1 J9r0 


CON HON 


?uo n 


, r son 


, 7 HO 


, TUOS 


r :k 


/ , 


S EC 1 "*9-0 


1 


7LN3 


, ?LO 


, TL 


, TLS 


, rsr 


, 7 • 1 .1 , 


SECT ObRO 


2 


rwras 


, TWOK 


, TWO NS 


r VI 


, v 2 


, V A J 


S EC 1 >S 90 


3 


7 BO 


, V3DS 


, V 3.1 


, 7 DNS <2 


, V B 


: Wti ’ 


SFC1 OhOO 


4 


VD3 


, V GO 


, VG 


, VGS3 


, 7 GS 


S EC 1 06 10 



E N AG 
rH .L:) 



luGB 

cNLN 



NATS 1740 
IAIN 1 7S0 
.IAIN 1 7*»0 
7. A r *: '7 70 
r a : *; i7 io 
1 A r N 170 0 
NAIM 1 800 

:i \ i n mo 

NAT N 13 70 

r.M'MHlO 

N A I N 1 '40 



:? i 

3 93 HOtJTI 


H EG TABLE AND INTRP 


NATO 10 60 
S EC 1 00 10 
SZC1 0020 
SEC 1 3 0 30 
SFC1 oo r o 


i 3I.OCK 
ALA n , 


ALPH AB 


, ALPHA 


# ALPMNB , 


SE^I 
S L‘C 1 


>06 3 
0 07 0 


AP , 


AS 


/ A T 


, u A . 


SECT 00:10 


BET AN 3 , 


3F.IA 


, BETAS 


t P3 , 


S EC 1 


)099 


C AG 1 , 


CA-SNQ 


, SAG 


, CALI B 


GZC1 0100 


COG NB , 


CDG 


, Z3LND 


, CB L 


Z EC 1 0 1 1 0 


CD , 


cm 


, cpi. ns 


# CFDN , 


3 zr 1 0 1 2 0 


CGN 


CGNS 


# ZLNB 


, CLN 


szci olio 


D , 


D2 


, 1A 


, DATE 


S EC 1014 3 


DELI 


DEi.rs 


, D2LON 


, DFLO , 


S EC 1 11 GO 


DZLSO , 


c^l:n 


, OELT 


, DiLV2 


SEC 1 3160 


DZ-bG3 , 


D-.NDG 


, Prn;B 


, 0 T ‘1 T # 


S EC 1 117 o 


DO 


DP 1 


, 0? 


, OOAY 


s sc i n s o 


DP 


DG 1 


, T J G A V E 


, DSL IN , 


GFC1 


)100 


DSP AIM , 


D5i?:.Y 


, DSrESl 


, DSL CS2 , 


S EC 1 92 3) 


D S A 1 


D.GX2 


, DTG 1 


, DT13 


s zc 1 


3 2 1 0 


D~”0 , 


D^LI 


, D T LB 


* PPL 


G E" 1 9 z 2 0 


D v; so , 


PVLSO 


r D X 


, DY I 


SZCI 02 JO 



SZC 1 024 0 

s \ o *: c o 
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FILE: TH3 


FORTRAN 


A 1 


COflrtON 


VIALD , 


VIAL 


6 


VIGrtS 


V I L3 


7 


VI. 


V L3Q 


8 


W AG , 


W AG3 


9 


W3L , 


WG8 


CON NON 


-ON 


WO -.3 


1 


XINT 


XP 


2 


TI3 


TO 


DIPENSION PL (10) 
DIMENSION NDRAY (75) 



V IBG 


, VIDL3 


t 


V IT3L 


, vtgh 


V T LI 


, VILNS 


t 


V L 1 


, VLO 


VL3 


, VS 


, 


vss 


, w a j a 


WAL 


, wpg n 


t 


d nc. 


, WBGS 


wr. 


, WGS 


t 


WIN 


, -ias 


X 


, xio 


t 


X 1 1 


, XCLK 


xs 


, XX 




XXA 


, Y I 


TOS 


, 2ZZ 


» 


N ST IT 





DIMENSION DA TE (5) 



, KPf 2,75) ,PL1(10 



_...i (M CASE (3) , , __ 4 . . . . 

1 C (6) ,AP (2, / ') f XXA (<3) .DSRaV ( 1 Jd ) , DS it All ( 

21 (100) , DPA$ (7^) 'HT(U) ,DIN * (8) 

*9* •#****«** i* *** «i i ***• * 

STATEN ENT NO- 10 



Q Jtu 



(XX =- 1.0 IN flAIN) SET (P05SI3LY) IN SECT4 



10 CONTINUE 
NST"T=9999 
CO WE HAVE TO WOT 
IF (XX* 1. 0) 1, 2, 1 

1 CONTINUE 
WRIIE J 6 ,807 7) XX 
XX=-1.0 

2 CONTINUE 

READ INPUTS AND PRINT HEADING FOB THIS CASE 

READ (5 ,91 0, £ND=7777) (D ATS ( I) ,1*1,5) , (C ASS ( I) ,1-1,1) , (0 I D (I) , 
11-1,9) * N S • S P 
TP (NS) 5. 59,1 1 
99 NStN?= q 9 
RETURN 

11 CONTINUE 

R F AD (5,911) 130 ,POP,.1GFO, ND3, NSO,NU , N\3 

READ (5,91?) DP, t'C, PHI , R A XO , E.l T, H , A L A 1 ,DP 1 , 

1 SAL, WdL, 5 A, 3 U, DO, FO, TOO, TLO, VS 0, VLO, THOO,THIO, EDS , ESO, 

2 £B 

WRITE (5 ,913) DATE, C AS 3, Q I D, NS , NP , 

11B’J,rOP, JlGEO, n5s,sso,nb, nns, dp, sc, phi, raxo,s? it, 

2 H, ALAI , *AL,W8L,SA £ SB-DO, PO. TSO.TLO 
WRITE (b, 9913) VOO, VLO ,TH0O, TH 10, EDS , ESO, 23,DP 1 
N* D 1 A 0 = 0 
NNS = 0 
K A P = 1 
S AC V - 0 
11*0 

I A CV - 0 
Kie = i 
K D S = 1 
LCT2 = 0 
X 1 = 1 
*2=1 
K CSCT=Q 
K roCT=0 

scts=o 

DC 11= )0 
K = 1 

GET X (P) T A E LE IDENTIFICATION AND X(?) TABLE DATA POINTS. 



IF (SOP) 1 360, la , 1 360 
14 READ (5 f 9d4) (X X * ( I 



. , l) (X X * ( I ) , 1= 1 , 31 

-RITE ( b ,991 5) (XXA (I) ,1=1,8) 

READ IN X(?) TAILS IF 1O?=0 
DO dr') KP=1 ,75 
CO 9000 OP=1 ,2 

tp (up, < r ) - - 1 . o 

8000 CONTINUE 

c 

9 READ (5,9 14) (C(L),L = 1,6) 

DO 1320 1=1, 5.2 

IF (C(L) -C (L* 1) ) 18,15, 18 



S EC 1 36 ?0 
SF.C1 06 10 

srci 0640 

S EC 1 3650 
3 EC 1 96b 0 
S EC 1 Ob 70 
S EC 1 )b'1Q 
S EC 1 )d0 
S EC 1 0700 
SFC1 07 1) 
3 EC 1 I 7 20 
BRAY (100) ,73PAYSSC1 1730 
SEC 10 740 
S EC 1 07 50 

«* **«**•«*•*«*«••»•**««•*•***« ••rrv'Ti o 760 

♦ **•** 10 /73 

;7M() 
SEC 1 0760 
SEC 1 9 ‘*00 
S EC 1 'U) 10 
S C C 1 JdO 
SECT 0330 
SEC 1 >840 
S EC 1 )850 
3 EC 1 ') BoO 
SEC 1 JO 30 
3 EC 1 09 10 
SEd 3920 
SECT 0910 
3 EC 1 09 i0 
3EC1 >960 
SEC 1 19 70 

s r r i '93 o 

SEC1 I960 
3 EC1 1090 
S EC 1 19 10 
3 EC 1 1 )20 
3 V C 1 10 *0 
SEC 1 1 34 0 
S EC 1 1 )‘>0 
src i ion o 
SECT 1 J70 
SECT 1090 
SKC1 1 ) 9 0 
SEC i 1 100 
SEC 1 1110 
3 EC 1 114 0 
S EC 1 1 1 r >0 
SEC 1 » 1 6 0 
S EC 1 1170 
9 Ed 1 1 90 
s r c 1 1 1 6 0 
SECT 1200 
S EC 1 12 10 
S EC 1 12 20 
3d 1 '2d 
S EC1 1 4 c 
SEC 1 1 2 SO 
3 Ed 1 2b J 
SEC 1 12 70 
SECT 1 2 SO 
S EC 1 12*0 
SEC 1 ' ICO 
SEC 1 13 10 
s* ; i i y : j 
3 EC 1 1330 
3 EC 1 13 4 9 
3 EC 1 1 36 9 
S E C 1 1 3 b 0 
Sdl 1 370 
SEC 1 1 3 BO 
3 EC 1 1 390 
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PILE: TR 3 



FORTRAN A 1 NAVAL POSTGRADUATE SCHOOL 



IS IP(C(L)- 100000.) 18,00 16, 18 
10 XP ( 1 , K) = C(L) 

XP {2,F) =C (L f 1) 

IF (K-IS ET) 19 , 19,2 1 
19 Z-K* 4 \ 

1320 CONTINUE 
GO TO 9 
9916 K = K-1 

C THIS IS A FIX FOB PKESSUBE TABLE INT2RP AT STEP SI 

KXP1 = K 

PB IHTOUT X ( P ) TABLE J0ST READ IN 



16 



L 1 = 1 

L 2-9 
■ RITE 
WRITE 
WRITE 



(6 ,915) 

(6,909) (XP ( 1 , LT1 ,LT=L1,L2) 
_ _ E f b . 9 1 7 ) (XP (2 ,LT) , LT*l ‘ ' 
LCT 1 =LCT i*3 
IF (L2-S) 13,22, 22 
13 L1 = LU3 



-LI, L 2 ) 



SPAET N El PAGE. 



L2“Ari*;0 JL2^ 0, K1 
IF (LCT 1-52) 16, 17, 17 

HAXinUf! LINE COUNT EXCEEDED 

17 WRITE (6,918) LPGCT 
LCT 1=9 

LPGCT = LPGCT* 1 
GO TO 16 

X(P) TABLE I. IS ITS EXCEEDED - PHI NT ERROR MESSAGE AND 
EXIT TO NEXT CASE. 

21 WRITE (6,921) 

GO TO TO 

22 CONTINUE 

APPROPRIATE TABLES HAVE BEEN READ IN AS REQUIRED 

1360 CONTINUE 

WRIT (6,916) 

RETURN 
5 NSTSTsS 
RETURN 
7777 STOP 

909 FOP NAT ( 1 HO, JX , 5UPRF5S, IX, 1 PS FI 5.4) 

910 POP-AT (4 A4,A2, 3AU,7 A4, A2 ,216) 

911 FOblAT (1 lib) 

912 POR-AT (SF12. 6./,6ri2.6,/,f»E12. 6,/, iE 12.6) 

913 FORMAT | Hi 1 , 7 X , *i>.1 EAL ?■>-, 
nirtPns^i- TWj-coilPON Z kt ■jozzt.p f r.n -j / 



NO ZZlc FLOW ,/ 
- 5 n. 



1 3 1 HP U A 

2 

3 8 X 

4 8 X , 4 LEG EO, 1 ( , 3 in or,, 9X, 3MNSO, 10 A,2U 113 , , 

5 9 (bX,: b) ,// ,2 JX , 2U D r, 1 3 X, 211 FC , 12 X , 1 H? iil , 1 !X , 4 II- AX 0, 

6 1 2X, Vi EOT, lux, 1HH, 11 X,4HA L AS, / , 1 IX, 7F IS. 4 



, 0X,4A4 f A2 £ /, U , 1 2 MCASi NUMBFR , )A4,/, 
,784 , A 2,/// , VOX, 2’ 4 4S, 1* X, 2P NP, »X , 3HRBU, 9X , 3 HPOP, 



9/ 99NUS,/, 



7//, 19/ , 3:f «AL , 1 2 X . 3H W c L . 13X ,2HJA e l V( t 2HSD , 1 3 X . 2 liDO . l^X. 
82HPO. 1 2X # JFrC.0 . 12X, j:-:T LD ,/, 1 IX . iPSTl 5.4- //. 1 Ax, 3 MVGO. 12X, 
9 3 H VL. , 11 x,4 I THCO, 1 1 X,4HTHL0, 12 X, JUEDS, 12 X, 3HE30, 1 JX, 2 iiEI>) 



914 FORMAT (6 E 12. r») 

1 HO ,5 4 x 1 h tfX ( ?) A l> L E T N'PU t) 

1 HO , 7 , 2 3 H PP I UTOU T-ST AT ION OUTPUT ) 



915 POP *18 7 
9 In PORN AT 
917 FORMAT 

916 FOPU7T 

921 format 



II! 

1 HI 
1 HO 



,7y, 1 H X , 1 X . 1P8E15. 4) 



, . i 20 x, 5 iip 5 gs ,n,///,s r »x, ihhx (P) 

__ . 3 , 2 9 H X ( P) TABLE LIMITS EXCEEDED - 

1 18HWF.A(J IN NEXT C\SZ.) 



TABLE (COUT.)) 



9 913 FORMAT ( 1 HO, TJX, 1P7E 1 S- 4//1 9X , 3 HOP 1 , 
1/, 11X, El 5. 4) 

9914 FOT.-AT (7 A4 ,A 2) 

9915 PORflAT 1B0,19H 



i X ( T) TABLE FOLLOWS , 15 X, 1 1 HTABLS ID - 



SEC 1 14 )0 
S SC 1 1410 
SET 1 14 20 
TcCl 14 10 
sec: i i44Q 
3E~ 1 1450 
3S. :i 1460 
3 ET 1 1470 
7 SE r 'l 
S EC 1 14--0 
S.Tri 15 00 
SEC 1 15 10 
SEC 1 15 79 
S2':i 1 c 30 
5 SCI 154 0 
S^C 1 1550 
S EC 1 I 60 O 
SEC 1 157 9 
S EC 1 1S?0 
Sir"* 1640 
S SC 1 1600 
3 SC 1 H: 1 0 
S FT 1 16 70 
S EC 1 16 10 
AFT 1 164 0 
SET 1 IbSO 
S EC 1 1 6 0 
T EC 1 I b7Q 

3 E ;i 1 6 n o 

S EC 1 1 6 1 0 
SECT i 7^0 
S EC 1 17 19 
SECT 17-3 
5 SC 117 10 
SEC1 1740 
32T1 1 75 J 
SEC 1 T7» 0 
S EC 1 177Q 
3 EC 1 17 3 0 

f.ECl 170,9 
SEMI U j 0 
S EC i 18 10 
S ET 1 1070 
SET i i:m 
teci 1S4 0 
3F.C1 I860 

SEC 1 I 86 0 
SE'M 167 0 
S FC 1 10 0 O 
SEC 1 104) 
S EC 1 I** )0 

sec i nu 

SEC 1 T ‘20 
SEC1 1 4)0 
S EC 1 1 i'I 0 
0 EC 1 1 960 
3 SCI 10*.O 
SEC 1 1670 
5 EC 1 10 8 } 
3 cC 1 I960 
S EC 1 2000 

s :.l i .c io 

3201 2020 
S EC 1 20 3 0 
SET! 2040 
S2C1 2 06 0 
SEC 1 206 0 
S EC 1 208 0 
3 SCI 2000 
SEC 1 2100 
SEC 1 21 10 



VOOC-Jd' X UwN>-* vO-O'-JCT' <^U>N>- 



1 7 A 4 , A?l 

8077 PO RrtAT ( 1 HO , 1 OX , 1 9 HI SOT HE Rfl A L FLOW TO , iPSIb.u , t>H PS IA. ) 
2ND 

SOBPOUTISE SECT 2 

COBBON TZZ7.AY 
UIBFNSION TZZZAT ( 1 1 2 JO ) 

C THE ABOVE CO H MON MLOCK FOP S UR FOIITIN ES TABLE AND INTFP 

C IT BUST EE THE PIPST C0H(10iI HLCCK 

COBBON 

1 



CBG 1 
COBBON 



COBBON 



COBBCN 



COBBON 



COBBON 



N 

CO EBON 



COBBON 



COBBON 



COBBON 



COBBON 



COBBON 



i.r.w 

BOP 

NUT AG 

NNA 

NNSGO 



BBU 
BTUT 
!IDS 
NNJ 
N N TO 
? 1 7 



B Fro 

N AC V 
.‘J Go 
N N D S 
'1 4S 
? 1 1 



.B F L‘ 

NTB 
N'JN 
N p 
FAD 



PAS 


, ? 3 0 


, P J 3 


?ruo 


, P RO 




S EC2 10 


"33 


, P H T A 3 


, PHI LA 


?"l 


, PINT 


, PL 


SEC 2 24 2 0 


PL 1 


, ro 


t 7 S 


FT 


t j 




5 EC 2 ) 4 10 


? 1 


, r A 


, RAF 


R.\)CO 


, : \X 


, PS 


sec: 


?C 


, R DEL IB 


, F DL LOB 


PRIES 


, poubs 


, R F. r' 


G EC2 M 4 GO 


PEB 


, R F AS 


, R FT LIB 


r i;r»o 


, 3 2G G 


, PM0G3 


S77' } J4*.0 


a HO G 


, R Hogs 


, PH' -LB 


P HOLE 


, i i!n i. 


, RHOLS , 


S EC ? f U 7 0 


RIB 


, pi 


, RB 


POAL 2 


# POAL 


, PUB L 3 . 


SEC2 24^0 


a 03 L 


, SOB 


, RO 


R 


, aSLTB 


, r ‘S 


SEC 2 • • 4 ’ * 0 


3 VB 


, a v 


, n vs 


S 


, S 1 


,32 


SBC ?0 SCO 


S 1 


, S 4 


, S A 


SR 


, 3 S’? 


s r i 


G 2 1 > 1 0 


sr.s 


, JBTN 


, S ”J 1 


GBJ2 


, 3BLC 


' :> B L D 


3F-:2 vS20 


SEL 5 


, SELF 


, SI L G 


S u 


, 5 'Ml 


# Go J 2 , 


S2 r :2 >b -Q 


SUP 


, SO 


, SUS B 


s s 


t S Z "* 


, SGI 


SEC 2 JV*j 


T 


, 70 


, T sr A Y 


TLU A Y 1 


, 7GB B 


# Tr;j 


3 EC 2 • G c 0 


TO 


, res 


, TNI B 


T.tro 


, : ir 


, IMIS 


^ZC2 JGoO 


T HO B 


, T 000 


, irio 


T’tos 


, V K 


r 7?: 7 , 


SET U‘,7 0 


7 LB U 


, 7 LO 


, TL 


TLS 


, r st 


,7 - M 


SEE^OS'-O 


T*I bs 


, TfJB 


, TWO -S 


VI 


, v 2 


, VAR , 


SEC 2 »G°0 


VDD 


, ;bps 


, V SB 


7 3B30 


r V 3 


, VbSO 


SF^-’ 0^70 


VOS 


, V GO 


, V G 


V ISO 


, 70S 


, VI AC. 


SEC 2 4 10 


VIA LB 


, VIAL 


, VI3G 


VT jLD 


t V 1 3 L 


, V I G B 


sec: s ?o 


YU BS 


, 7IT.3 


# y i l b 


VI LBS 


V L B 


, VLO 


:e:ci'i10 


VI 


, VL3Q 


, / LJ 


VS 


f vss 


, y A G d , 


S EE 2 "240 


» AG 


, w AGS 


, W A L 


ynr.a 


, «2G 


, WRGS , 


S sc 2 R'lSO 


* RL 


, VOS 


, w g 


yes 


m Z Ci 


, X I B f. 


see: )«if*o 


WON 


, WOES 


, x 


X10 


, (11 


, YCLK r 


SEC2 )07Q 


XI N T 


, X? 


, YS 


XX 


, X X A 


# YI , 


SEC2 0G c J 


Y 13 

I i'L(IO) 


, TO 


, TOS 


Z7.Z 


, S3 TBT 




S EC 2 Jb °0 
SEC20700 



BO CO 
N C L K 

'irs 

S io 

\ :• 3 



BN 

NC 7 5 
N LG T 
N i 
NS 
'A 



SEC 1 2 12 J 
S EC 1 21 JO 
S F.C 1214 0 
7* EC 2 0010 
3 EC 2 70?0 
S £02 7013 
SEC 2 D^GO 
SEC? -*0*0 



A 


, AUAR 


, A LA a 


AT.FH A3 


, ALPHA 


, ALL 11 H 3 




SLOP ‘>0 70 


ALP IIS 


r AB 


, AP 


AS 


, at 


, PA 




7 EC 2 J 1«0 


33 


, dETAB 


, DETAB3 


SETA 


# y FT AS 


, 3" 




S EC 2 DODO 


C 


, Cl 


, C AG 1 


CAGB3 


, E AG 


, CALBB 




SCC2C1D0 


CAL 


# CASE 


, CDGB3 


C'^G 


, : n l b 3 


, CDL 




S EC 2 0 1 1 0 


C n B S 


, CPP 


, CD 


CF IB 


, CRIBS 


, CF J B 




S F.C 2 0 1 0 


CFO BS 


, cr.BD 


, CCB 


COBS 


, Cl **3 


, CL'* 




SEC 2 1110 


C LB S 


, CSAV2 


# D 


D? 


# D A 


, DM? 




SFC2 7 1 -» 0 


DD 


, DE LIB 


, DELI 


DELIS 


, DELOB 


, OF 1.0 




S EC 2 7 1^0 


n^LOS 


, DELS I 


, DFLSO 


CFL7B 


, DFIT 


, DEL V 2 




SEC 2 ) 1 SO 


DfcB AGO 


, DEBAG 


, DEB BOB 


D= , '-uG 


# 0 3 -Gil 


, DINT 




SEC 2 1170 


DL3 IS 


, DLSOS 


, DO 


DP 1 


# DP 


, D;<.\ Y 




5EIV01 d 0 


DHI 


, 3 R 0 


, DR 


DS 1 


, DS A VC 


, DSL r B 




S EC 2 J 1 °0 


DSB A X 


, DSBIN 


, DSP AY 1 


DS RA Y 


- D 3 ^ E S 1 


, DG - ' .-:S ‘2 




SEC 2 07 )0 


DSR ES 


, DS 


, DSX 1 


DGX2 


, D T G 1 


# 7 T G 3 




GCC n 0 2 VO 


DTG 


, DT'II 


, Dili 0 


77 LI 


, OT 13 


, rn 




5 LC 2 12 2 j 


DT 


, DVRS 9 


, DVGSQ 


DVLS9 


, DX 


, Of I 




SIX 2 0 2 10 


DYO 


r F9 


, EDS 


r '* AG B 


, "BAG 


r ■* r g b 




S E- 2 U2 40 


E**0 G 


, cnaa 


F M G 


S'* S3 


, v Mi 


LBL.B 




SFC2 ) ’GO 


EilL 


# RBLS 


SB'7 


F~0 


, FLEET* 


, FU X 




SEC 2 Lr.?‘»0 


(I 


, HJi 


' M k AG 


H^ns 


, n kg bi 


, UK i B 2 


, 


SEC 2 "*770 


MKG B 


, fiKGBS 


, H LA 1 


f’LAB 


, ?! L A 


, i t LA S 




SEC 2 22 “0 


HI. 3 1 


, HL3B 


, HLD 


HLDS 


, :, B 


, PBS 




SEC 2 ) 2 ' 1 0 


«iOf> v 


/ IT 


, AC V 


rr»Lw 


, I 3 L X 


r rsw 




see: ) ico 


IJH “ 


, I NT 


, I S u T 


I ZERO 


# K 


. < 1 




S EC 7 Vi 1 0 


K2 


, K AP 


, K D ; CT 


KD3 


, < L 


. KH1 




SEC 2 ) 12 0 


KR 


, K T OCT 


, KTH 


Kxn 


, KTP 


. I. 




S EC 2 "* 3 1 0 


LI 


, L 2 


, LCT 1 


LCT2 


, LL 


, LPGCT 


* 


S FT 7 0 3 4 0 



3 EC 2 0 >GG 
SEC 2 <> 

S EC 2 ) 170 
SZ~2\M-*Q 
GL'U )JV0 

:? 04.10 
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DIP1FNS ICN N PR AY (75) 
^ DIMENSION PAT? j5‘ ' * 

21 ( 100 ) 



IMH PAT? (5)* CASE (3 ) . 0 1 D ( R) , X? ( 2 , 75 ) , PL 1 f 10 ) , 
C (6) .A P (2, 7 5) . XX A ( <3 1 Jo SR A I (130) , DS R AY 1 (100 , 
1 (100) , UbA^( 75) # i!7( Id) ,lhNT<8) 

FUUIYAL EHC5 iU CRAY (1) , DRAY (1) j 
I F (NS? IT- 30) 1,30,2 



1 CALL DU .IF 

2 IF (NST.TT-145) 1,14 5,3 

3 IP (NS7-.T-151) 1 ,1b 1 f 4 

tt IF (NL7 PIT- 1 14 2) 1,1142,5 

5 CONTINUE 

SET ITERATION COUNT ZERO 
NN A = 0 

SET INITIAL CONDITIONS INDICATION 

****•***«***««« STATEMENT NO . 20 



20 MFP=1 
MFPO=1 
I 5 LX =0 
K AP = 1 
M N N = 0 
o O =0 . 0 

PHI=PHI *0.01 745329 
AT=10000G. J 

INITIALIZE PRINTOUT COUNT 
?J N ?= 1 

SETUP MIDPOINT AF1D endpoint indication. 

INC = 1, NEXT ENTRY TO STATEMENT 32 COMPOTES MIDPOINT 
0UANTITI rS. 

INI - ), NEXT ENTRY TO STATEMENT 32 COMPUTES ENDPOINT 

quantities. 

IN 1=1 

RE S FT THROAT INDICATOR 

MTHT = 3 - ~HRUAT NOT REACHED 
NTHT = 1 - T !l R CAT REACHED 

M T HT = 0 

RESET DS ITERATION COUNTER. 

N N DS = 0 

RESET OPTIMUM S ITERATION COUNTER. 



N N SO -0 

BACKSTEP ? FOP PIS ST ENTRY TO 30 

?= PO-DP 1/2* 0 

SETUP INITIAL CONDITIONS 

TG=TOO 

TL-TLO 

V G = V GO 

V L = VLO 
0 = DO 

28 X=0. 

27 DTL=0 . 0 
DS 1=0. 

3 = 0. 

DTG=0. 0 
AT=0. 



S EC 2 07 1 0 
SECT 0 720 

TDRAY (100) , TURAYSEC2 J7 3 0 
S V.C2 0 74 Q 
STC 2 yjf^O 
S EC 2 27b 0 

2 EC ? J 7 7) 
S EC 2 3 7:0 

3 EC 2 G 7 D Q 
3 t r ‘ 2 0 P 3 0 
SEE 2 OHIO 
:>CC2 H 20 
SEC 2 >^10 
3 PC 2 JH 4 0 
S EC 2 'M5Q 
SECT 3)14 0 
SEC? )H73 
SECT 

****•**•*••****•5 EC" ')H<Q 
• ♦••••*******»»*sr''2 i 

SEC? 0 i 10 
SK *2 3 9>0 
SEC 2 00 U 
S SC 2 1050 
SECT 3 
f EC 2 >9 7 j 
OS'’ 2 )9U ) 
SEC , : 3>0 
5 EC 2 13 -10 
5 S’2 1010 
S EC 2 1)20 

s -t * 2 n n 

Sv~2 1 J 4 0 
SET 2 1050 
SEC 2 1 ,40 
SEC 2 1 )70 
SEC 2 10n0 
3 EC 2 10*0 
3 EE 2 I MO 
3 r ^ 2 1 11 0 
S E r ‘ 2 1120 
S EC 2 * 1 3 0 
SEC 2 1143 
3 EC M 1 50 
SEC 2 M40 
S EC 2 117 3 
EEC 2 1140 
S FT? 1 no 
SEC 2 12 10 
SEE 2 12 10 
0 ICC 1 270 
S C r 2 5 2 13 
SEC 2 1 24 J 
SEC 7 1240 
SIT 2 ij*<0 
SEC? 12"70 

sect >0 
sec: 1 2*o 

EEC? MOO 
5 *C 2 1 11 3 
3EC2 1 J^O 

snr2 1 3 jo 

.0 E'~ 2 114 0 
S EC 2 1 340 
SEC 2 1 34 0 
SEC.? 1 m 
SF."*2 1 700 
S EC 2 1 330 
SSC2 1400 
SEC2 14 10 
SEC2 1420 
SEC2 14 30 
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VGS0-VG*7G 
V L5Q= V L * VL 
T HO=THOO 
T H X-TH 10 
DELI -TG-TL 
DZLV2=V GSQ-/LSQ 
DS 1 = 0. 

R = 0. 

DTHO*0.0 
DT HI = 0 . 0 

*************** STATEMENT 40. 30 



30 NS7M?=0999 

IP (MFP) 631,630,630 

T HI 3 13 FIRST POINT - HALF STEP P BY INITIAL DP STEP-SIZE. 

631 P= P* DP 1 /2. 3 
GO TO 6 32 

THIS IS NOT FIRST POINT - HALF STEP PRESSURE BY STEP 
SIZE P9. 



630 P = POP/2.0 

632 IF (?) 1 1 30, 11 30, 13 1 

STEPPING PRESSURE MADE IT NEGATIVE - PRINT DIAGNOSTIC, AND 
DATA COMPUTED TO THIS POINT AND GO TO NEXT CASE. 

1130 WRITE (6,9 30) 

GO TO 50 0 

EXTRAPOLATE TG AND TL, PRINT DIAGNOSTICS IF THEY GO 
■NEGATIVE, A NO PRINT DATA COMPUTED TO THIS POINT. 



131 CONTINUE 
TG=TGf DTC/2. 0 

IF (TG) 1 J2 132, 133 

132 WRITE (6,^31) 

L L =2 

GO TO 500 

133 TL =TL«- P T L/2. 0 

IF (TL) 1 34 . 1 3 4, 1 35 

134 WRITE (6,332) 

LL = 3 

GO TO 5 00 

INTERPOLATE FOR PBO FOB 



THIS TL 



135 N-9 
SN=9 

CALL TNTFP (PDO,N,TL, P) 

IF (N) 1 36, 1 h , 1 37 

136 WRLT r (6 , 9 13 r>) HT (N N) , TL , P 

GO TO 500 

CHECK OF NOMINATOR OF EQUATION FOR PARTIAL PRESSURE 
OF COMPONENT A, PRINT DIAGNOSTIC IF SUFFICIENTLY 
CLOSE TO ZERO RENDERING PA INFINITE. 

137 IF JABS ( 1 .0-H*PBO) 000 1) 1 33, 138,139 

138 WRITE (6,933) 

LL = 3 

GO TO 500 

139 PA= (P- PBO) /( 1 . 0-H*P3O) 

COMPUTE PA AND ?B. IF ZITHER IS NEGATIVE, PRINT 
DIAGNOSTIC AND GO TO NEXT CASE. 



3 EC 7 i 4 4 0 
SEC 2 145 3 
SEC 7 145 0 
S EC 2 14 7 3 
3 EC2 1 4 8 0 
S EC 2 14 0Q 
SEC 2 1400 
3 EC 7 14 10 
3 EC 2 15JJ 
S EC 2 1510 
SEC 2 1520 
SEC 2 15 10 
3 EC 2 1 540 
SEC 2 1550 
SEC 2 15'>0 
SEC 2 1570 
S EC 2 15 13 
S EC 2 1590 
S EC 2 I^OO 
3 EC 2 1610 
S EC 2 167 0 
3 EC 2 16 3 0 
?F Z? 1640 
ZZr> 1650 
S Ex* 2 1 oo 0 
3 EC 2 1670 
SEC2 168 0 
SEC 2 164Q 
3 EC 2 173 0 
S EC 2 17 10 
SEC 2 1770 
SEC2 17 JO 
SEC 2 174 0 
SF.C2 1750 
S EC 7 1 7* 0 
S EC 2 1 77 J 
SEC 2 17-9 
S EC 2 1 7°0 
~ EC 2 1 10 0 
SEC ! 18'0 
SEC 2 1820 
S EC 2 i* 30 
SEC 2 164 0 
SEC 7 TH r ’0 
C EC 2 106 0 
S EC 1 1*<70 
c 2 1 H 11 9 

3 EC 2 1H'>0 
S EC 2 1009 
SEC 2 10 1'J 

<* ?£ T 1 (1 ^ 4 

SEC2 1910 
S EC 2 mo 
SZC2 1060 
s EC 2 1 o, ;0 
SEC2 100(9 
S EC 2 1 o‘» 9 
S SC 2 10^0 
SEC 7 ’0 )0 
3 EC 2 .0 IQ 
S EC 7 7020 
SEC 7 2 0 U9 
SEC 2 2040 
SEC 2 7950 
3 EC 2 296 0 
SEC 2 2070 
3 EC 2 7 98Q 
3FC2 2 0 u 0 
S2C22100 
5 SC 7 21 10 
SEC2 2120 
3EC2 21 30 
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IF (PA) 439.440, 440 

439 WRITE (6,9439) 

LL=4 

GO TO 5Q0 

440 PB =P-P A 

IF (P3) 4 4 1 .442,442 
44 1 WRITE (6,9440) 

LL=5 

oo ro soo 

INTERPOLATE INTO HO L ECU LA R WEIGHT OF COWPONENT A 
GAS TABLE AT TE HP FF A TUR 2 TO. 

442 3 

S N - J 

CALL rNTFPfW AG, N,TG, PA) 

IF ( " ) 114 1,1141,14 3 

1141 LL-5 

1142 WPTTF (6.913b) FT (N N) , TO , P A 
N'STWT- 9 9 99 

GO TO 500 

1ST ERIOLAT E INTO MOLECULAR WEIGHT OP COMPONENT B 
GAS TABLE AT TEMPERATURE TG. 

143 N= 4 

N N -4 

CALL TNTFP (W 8G.N,TG, PB) 

IF (N ) 14 4, 144 , 1 50 

144 LL=6 

145 * R ITS (6.3136) HT(NN),TG,PB 
NSTMT- 9 9 99 

GO TO 500 

COMPUTE WEAN MOLECULAR WEIGHT OP GAS MIXTURE. 

150 WG« (WAG* PA*W BG*PB) /P 

COMPUTE RATIO OF FLOW RATE OF LIQUID \ TO FLOW 
HATE OF L rCJl J FIXTURE OF A AND B - \ LPIIA 

ALPHA- ( (WAL/WBL) * H* PA) / ( 1 « 0* (( WAL/W3 L) -1. 0) *H*PA) 

COMPUTE RATIO OF FLOW RATE OF GAS 3 TO FLOW HATE 
OF GAS FUTURE OF A AND 3 - BETA 

BETA= (WPC*?B)/ (WG*P) 

COMPOTE RATIO OF FLOW RATE OF LIQUID M I XTUR 5 TO 

FLOW P.ATE OF GAS FIXTURE, 7 . CHECK DENOMINATOR OF 
EQUATION FOP P AND PRINT DIAGNOSTIC IF SUFFICIENTLY 
CLOSE TO ZERO. 

IF (AES ( 1 .0-M. 0*RC) * AL PH A) - . DO 0 1) 15 1 ,152,152 

151 ■RITE (6,9151) 

LL = 7 

GO TO 5 DC 

152 DS= ( (SC- (1 .*RC)*BFTA)/ (1 .0 - ( 1 • 3 + RC) * ALPHA) ) - R 
R-R*DR 

COMPUTE GAS DENSITY - RUOG 
H HCG= ( WG *P ) / (TG* 10. 7 32) 

INTERPOLATE IN TABLE FOR DENSITY OF LIQ ni D A AT THIS 
TEMPERATURE. 



N = 10 
N N = 10 



C 



CALL INT5P (ROAL.N, 
IP (N) 160, 16D, 162 



L.P) 



SEC 2 214 0 
S EC 2 2 1 5 0 
SEC2 2 IbJ 
5 EC 2 1170 
SEC2 2 1 y o 
SCC2 7 1°0 
SEC 2 2 7 00 
SEC 2 2210 
SEC2 2270 
3 EC 2 2 2 3 D 
SECT 2240 
S 2-72250 
S FT 2 2 2 6 0 
SEC2 2270 
3 EC 2 2240 
S EC 2 2 290 
SEC 2 2 ID 0 
SEC 2 2 110 
3 EC 2 2 3 7 0 
S EC 2 2 1 1 0 
3 S r 2 2 JuO 
SE'*2 2 150 
S EC 2 2 3*0 
S EC 2 7 37 3 
S EC 2 2 3 MO 
sec: j 
SEC 7 2400 
3 EC 2 24 ID 
3 EC 2 24 2 0 
S EC 2 24 30 
SEC 2 14 4 0 
3 EC 2 2450 
3 EC 2 24* 0 
SEC2 2470 
S EC 2 24 UO 
SEC 2 2 40 0 
3 tC2 25 1 0 
SEC 7 ?5 10 
S EC 2 2 6 2 0 
SHC2 25 <0 
3 EC 2 2 54 3 
SEC 2 256 0 
3ZZ2 2 5*0 
SECT 2 570 
SEC 2 75 
SEC 7 755 0 
3 EC 2 260 0 
3 EC 2 2 o 1 0 
SEC 2 2620 
5 EC 2 2 m 7 0 
3 EC 2 7*4 3 

3 EC 2 24 j 0 
SEC 2 '4*0 
3EC7 2 ’? 1 0 
3 EC 7 76 « 0 
SEC 2 2 4 H) 

szzi.rno 

3ZC2 27 1 J 

sec: 2 770 

3 EC 2 2^ 10 
3 EC 2 2740 
S EC 2 2750 
3 CC7 7740 
s*c"» y 7 

sec: io.uo 

3 EC 2 J7 '0 
SEC 7 2 MOO 
SEC 2 1 0 
S EC 2 2 U 7 0 
SEC2 2.330 
S£c2 2 M4 0 
3EC2 2U5 0 
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TABLE LIMITS EXCEEDED - WRITS DIAGNOSTIC. 

160 LL-3 

16 1 WRIT’ J6^91J6) HT(MN),TL,P 
G O TO " 5 0 0 

I ST EtlPOLAT E IN TABLE POR DENSITY OP LIQUID B AT THIS 
TEA PEFATU RE. 

162 N = 1 1 
N Ns 11 

CALL INTS?(POBL,N,TL,P) 

IP (N) 16 1 ,161 , 1b3 

COMPUTE DENSITY OP LIQUID MIXTURE 

16 3 SHOL-1. 0/ ( (ALPHA/POAL) ♦( (1.0- ALPHA) /ROHL) ) 

CONFUTE PLOW SATES OP LIQUID MIXTURF AND OP GAS MIXTURE. 

EHG-PMT/ (1 .0 ♦ R ) 

EflL^R* ENG 

COMPUTE RATIO OP GAS 70LUNE PLOW TO LIQUID VOLUME PLOW. 
PV = RHOL/ (R*R !iOG) 

INTERPOLATE IN SPECIFIC HEAT TABLES PD R A AND 3 AT 
THIS TEMPERATURE AND PRESSURE. 

N = 1 
NM -1 

CALL INTRP (CAG.N,TG,?A) 

IP ( N) 1t>5, U»5, 170 
16 6 LL =0 

GO TO 1142 



SEC 2 2 Hn 0 

SEC2 

SEC? 

SEC 2 20 >0 
SEC? *SJJ 
S EC 2 2^10 
S"'? ,r m 
Sr/'?. 2010 
SEC2 2040 
S EC 2 2'/SQ 
SEC? > K9 
S EC 2 M )70 
SEC 2 2990 
SEC? 2‘MO 
SEC 2 <000 
S2C 2 n 
S EC 2 JJ20 
SEC 2 40 10 
SEC 2 304 0 

3 EC 2 .4 000 

SEC 2 3 J-'O 
S EC 2 30 7 0 
SEC 2 1 V 40 
SE22 

SF.C2 1100 
SEC 2 <110 
SEC 2 3 1 ? J 
SZC2 1 1 10 
SEC 2 i 1 a 0 
SEC 2 M ‘>0 
SE !2 3 1^0 
SE"2 J17Q 
3 EC 2 11 ’0 
3 EC 2 1^0 
SEC2 32JO 
sec: 0210 
TEC 2 3220 
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N - 2 




SEC 2 3? 30 






N N -2 




3 EC 2 0240 






CALL I NT BP (CBG.M.TG , ?B) 


Sr~? 32SJ 






LL= ) 




CC:*2 






I F (N) las. 145 , 171 


3E^> 3 270 


c 


intkrpolat 


■2 INTO LATENT HEAT OP VAPORIZATION TABLES 


SEC? 3 2-40 


c 


FOB A AND a AT THIS TEMPERATURE. 


S EC 2 1 2 ‘ 1 0 


c 








S EC 2 1300 




171 


N = 7 




S E ’ 2 3 3 1 0 






N N -7 




S E r *2 0 3 70 






CALL INTRP (H LA.N.TL, ?) 


SE”2 mo 






LL-9 




SEC 2 mo 






IP (SI 16 1.161,172 


S£ ! *2 1 ISO 




172 


N - H 




SEC? n-,0 






NN=8 




5 £r 2 117 0 






CALL IN 


IT5P (HL3,N.TL,P) 


S E"2 13*30 






LL = 1 0 




SEC 2 3 1 iQ 






IE(V) 161.161.31 


SEC 2 >400 




31 


IF (MFP- 


1) 32,aO,32 


SEC? 34 10 




32 


ip i: T- 


1 60. 50.60 


SEC 2 34.70 




40 


NSTC'" = 40 


SEC? 34 30 






SETUP N 




S EC 2 34 4 0 




50 


N S C P 7 - 5 0 


$ EC? 34 






RSTUTN 




SEC 2 34', 0 




60 


N S~MT-6 0 


SEC? 3 4 7 0 






RETURN 




> EC? 34 *10 




500 


N D 1 AG - 1 




SC"? ? 4 ) o 






CALL OUrPUT(NNN r LPGCT, MG SO) 


SEC? 3500 






N STMT- 1 1 0 


SEC? 3 S 1 0 






R2TUPN 




S c f *2 JS20 




930 


FOMAT 


1H0.7X, 13 H NO N POSITIVE P) 


3EC2 3510 




93 1 


FORMAT 


1H0.7X, lUHNONPOSITIVS TG) 


S EC? 3 5a 0 




902 


FORMAT 


1 HO . 7 X , 14 H NON POSITIVE TL) 


SE~2 3550 




909 


PORMAT 


1H0.7X, 11 H IN PIN IT E PA) 


5SC2 J5b0 


9136 


PORMAT 


! 1 H0,7X # 17HOUTSIDE RANGE OP ,A6,7H TA3LE..5X, 


SEC 2 J570 



14 HT = , UEl 2 . 4 , 5 X,«nP = , 212 . 4 ) 

9151 P O H M A T ( 1 H 0 , 7 X , IQlilNFTNlTS R) 

9439 FORMAT ( 1 HO , 7 X , 1 1 HNEG A? I V B PA) 

9440 FORMAT ( 1 H 0 , 7 X, 11 HSFGATIV 3 PO) 

END 

S (JBPOM TIME SECT 3 

COMMON T2ZZAY 
DIMENSION T7.ZZAY ( 11 209) 

THE ABOVE CO JR CM BLOCK POP STIPROO" 



IN F5 TABLE AND IMTPP 



S EC 2 JSHO 
SEC2 J090 
SEC? JO )0 
3 EC 2 30 19 
S EC ! 102 0 
3 *C < 90 1 9 
3 L'J 1 9930 

sec no JO 

SFC3 >050 



IT R1J3T 


EE THE FIRST COM M 


ON BLOCK 










SFC V.VcO 


common 


A 


, A 3 A R 


, A LA M 




ALFHA0 


, ALPHA 


, ALPHMB , 


SET 1 JQ70 


1 


ALPHS 


, AM 


, at 




A G 


, AT 


, MA , 


SET 1 19 HO 


2 


BO 


, b FT A B 


, b FT AN 13 




BETA 


, i> ET A S 


# B-1 , 


sec.i mo 


3 


C 


, Cl 


, C AG 1 




CAGMB 


, TAG 


, CAL.MD , 


3 EC 3 9 no 


4 CBG1 


, CAL 


, CASE 


, C 3(» M B 




CB(i 


, CUI..1B 


, COL 


S EC 3 01 1 i) 


COMMON 


COM3 


, C D P 


, CD 




C^IM 


, err ms 


, CEO M , 


seen 9 120 


6 


CEO MS 


, COMB 


, CGM 




COM3 


, sirs 


, CLM , 


sec nno 


7 


CLM 5 


, C3AVS 


, D 




D2 


, DA 


, DATE , 


S EC 3 9U 0 


3 


DD 


, DSLIM 


, OELT 




CPUS 


, DEION 


, PESO , 


SEC 3 mo 


9 


D..LOS 


, d £ r.s r 


, DEI SO 




DF T.T M 


, DEL? 


, Dw w V 2 


SET J .) 1m 9 


COMMON 


dfm agb 


, DEMAG 


, DEMBGB 




DEMBG 


, D5MG3 


, l)I»:r 


S r C 3 9 1 7 o 


1 


OLS IS 


, OLIOS 


, DO 




[)? 1 


, DP 


, D .1 A Y , 


sec J 9 no 


2 


DPI 


, DRO 


, DR 


# 


OS 1 


, . D 3 A V H 


, DSLIM , 


S DC ) ) 1 90 


3 


DJM AX 


, DSNIN 


, DSPAY1 


9 


D3 ~ A T 


, 3 S R E3 1 


, ” i 1 ES 2 , 


SEC J 9 299 


4 


DSP ES 


, D5 


, DSX 1 




DSX 2 


, D7G1 


, d b 


S EC 19 210 


COMMON 


DIG 


, DT HI 


, DTHO 




D T LI 


, DTL3 


, DT L 


S EC 19 229 


6 


DT 


, 07B3Q 


, D VC, SQ 




DV LS 0 


, D X 


, DY I , 


sEemn 


7 


D YD 


, =*n 


, EDS 




F M A 3 h 


, ? 1A G 


, r'MJGB , 


sec imo 


8 


ZM3G 


, EMGB 


, E MG 




EM G > 


, "MLB 


, EMLM , 


SEC i ^2^0 


9 


KMX 


, =* M LS 


, SMT 




sro 


, ELSE? 


, < 


SEC3 J2*0 


COMMON 


H 


, ilJI 


, H K A G 




HKPG 


, M KG M 1 


, HK3M2 


SEC M2 79 


1 


H Y 1 M 


, iiKGMS 


, fi LA 1 




H L AM 


, 1 LA 


, ML, AS 


SEC 1 92 n 


2 


l!L3 1 


, HUM 


, 11 LI 




HI iV3 


, M ■* 


, 1* MS , 


SET J mo 


3 


COPE 


, MT 


, I AC V 




TbLW 


, lur.x 


, TB-. 


SEC 3 noo 


4 


10 J 


, I N r 


, isK r 




IS 2.10 


, K 


, ^ 1 


s ec < .n i o 


COMMON 


K2 


, K A P 


, K DJ CT 




KDS 


, < L 


, R i 


SEC 1 9329 


6 


K E 


, KTBCT 


, KTD 




EX PI 


, KXP 


. i 


SEC 1 1 HO 


7 


LI 


, L2 


, LCT 1 




LC 72 


, !.L 


, LPGCT , 


S EC i J U 9 


a 


LSW 


, MbiJ 


, m pro 




MFP 


, MGFO 


, Ml , 


SEC J J 159 


9 N 


, MOP 


, MTHT 


, I» AC V 




N B 


, V C T. ■< 


, NCf’S 


S PC 1 9 H> 3 


COMMON 


NDI AG 


, 'IDS 


, MGG 




n r d 


, N IS 


, NLJT 


SEC i ) 373 


1 


SNA 


, ‘I ND 


, ViDS 




n n :: 


, S NP 


r NN , 


3 EC 1 H 9 0 


2 


N.iJOO 


, N ?1 SO 


, S’ v, i 




NP 


, s o 


, MS 


SEC n HO 


3 


? 


, P 19 


, ? 1 1 




PAB 


, ^ AMD 


, t A , 


S"T ] 94 9 J 


4 


P A3 


, P 33 


, PBMB 




PH OB 


, p 90 


, P3 


S£.C 1 0 4 i ) 


COMMON 


pns 


, PnlAb 


, PHI 9A 




PM I 


, ^r:rr 


, PL 


S EC i J'HO 


6 


FL 1 


, PO 


, rs 




n 


t 'i 


, : r d 


s ec i >4 n 


7 


PI 


, PA 


, P AS 




PAXO 


, R AX 


, :<D , 


SEC 1 944 0 


a 


PC 


, "DELIS 


, P DELON 




rd ns 


, S DO MS 


, Per , 


J EC 1 9 4 5 9 


9 


3FM 


, HEMS 


, RES LI n 




PESO 


, .1 ES L 


, roiojB 


3 E r * 3 I'l/.J 


COMMON 


P HO G 


, R HOGS 


, PHOLB 




PHOLM 


, 0 MO L 


, rfiOLS 


SEC 1 *14 7Q 


1 


RIM 


, HI 


, P.M 




GOAL B 


, XOAL 


, POBLIi , 


3 F" 1 u4m0 


2 


RC3L 


, POM 


, ?0 




3 


, 9 S L I M 


, PS - 


S EC 1 H’io 


3 


PV3 


, R V 


, R VS 




S 


, S 1 


r 1 


SEC 5 9500 


4 


S3 


, 34 


, S A 




SB 


, 3 J N 


, SIS 


SEC 39 r > 10 


COMMON 


3 1 3 S 


, . M T N 


, 3 M J 1 




SM J2 


, S M LC 


, s-ld 


SEC 3 9520 


b 


S ML 2 


, SMLF 


, SMI. G 




S N 


, 3 0,11 


, s. 12 


3 EC 1 35 <0 


7 


SOP 


, SO 


, SOS M 




SS 


, S 7. “ 


, S 2 ) 


S2C 3 954 9 


a 


T 


, T 3 


, TBRAY 




TP PA Y 1 


, r S M B 


, TSO , 


SEC 3 9 >50 


9 


T r. 


, TG3 


, THIM 




TliiO 


, 7 HI 


, THIS 


3 SC 3 35o 0 


COMMON 


THOM 


, 7 H n O 


, THO 




THUS 


, r k 


, 7Y l 


SEC -1 )5 70 


1 


TL.M n 


, rio 


, T L 




TL3 


, :sr 


, r « l m 


S DC J *i5‘’0 


2 


TwIMS 


, T -OM 


, TWO MS 




7 1 


, V 2 


, VAi> 


SEC 3 )5"9 


3 


VUD 


, vans 


, V DM 




VBM3 0 


, / j 


, ^ BS Q t 


r>z r : i Jo oo 


4 


VBS 


, V GO 


, VG 




VO jD 


, VGS 


, VI A G 


S EC 3 Do 10 


COMMON 


VIA LB 


, VIAL 


, V IDG 




V I bb B 


, V IS L 


, /ISM 


S cC i 90 20 


6 


V 13 MS 


, VIF.3 


, VI LM 


t 


VTLMS 


, VI..M 


* 710 , 


SEC 1 3b 10 


7 


VL 


, V LGQ 


, 7 1.3 




VS 


, V is 


, W \ , 3 , 


SEC 3 )*4Q 


0 


W AG 


, V A 03 


, J AL 




W 3 GB 


, . r,«; 


, W B S 3 , 


SEC 3 9h50 


9 


WBL 


, WGO 


, WG 




WGS 


, WI.M 


, W I M S 


SCC 1 )of,0 


COMMON 


WOM 


, WO M3 


, X 




X 1 9 


, <11 


, XCLK 


3 EC .3 


1 


X IS T 


, XP 


, xs 


9 


XX 


, X X A 


# YI , 


SEC 3 06B0 
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nnnn ftnnn noon non non nnnnnn 



2 YIS 

DIMENSION PL ( 1 0) 

dimension 'nr" 

D I BENS ION 



YO 



YOS 



zzz 



N3TMT 



:n stray (7s> 

S’ DATE(5i-CASE (3) , QID (8) , XP { 2,75 ). PL 1 ( 10) , 

S) ,\P (2,75) XXA{8) ,DSR AY ( 103) , DSRAY1 (100) ,TBRAT (100) 



1 C (6) , \P (2,74) .XXA(8) ,DSR, 

21(1 00) , 0 B A Y ( 75 ), HT ( 1 8) - 01 NT j ft) 
EQUIVALENCE ( N DR A Y ( 1) , DR AY ( 1 ) ) 



(Nt . 

I? (NSrfM-40) 1 , U0,2 

1 CALL D r J M F 

2 IF (NST1T-50) 1,50, 1 

TRIS IS FIRST POINT - STORE INITIAL PROPERTIES FOR USE 
AT END OF FIRST INTERVAL. 



STATEMENT NO. 40 



40 flPP-0 

N STMT = 9 9 99 
H LA 1 =H L A 
HLP1=MLB 
C AG 1 -C A G 
CEG1-C3G 

COfiPUTE INITIAL FLOW RATES OP COMPONENTS A AND 3. 



EM AG- (EMG*WAG*PA)/(VG*P) 
e i l- ; - j s a g * w 3 g ♦ f a ) / (w g • ? ) 



DR - . 

IF (VG) 1 75, 175, 174 

174 IF VT ) 1 75, 175, 176 

175 A= 1000000. 

R A =A 

GO TO 41 

COMPUTE INITIAL AREA OF NOZZLE. 

17 6 A - 14 4. *E MG* ( (1.0/ (R HOG* V G) ) ♦ (R/(8HDL*VL) ) ) 

RA=PV* VL/VG 
4 1 AT - A 
PT -P 

AP II, 1) =F 

AP !?, * j - A 
K A P-2 

COMPUTE SLIP VELOCITY, VS, SEAN FREE STREAM VELOCITY, ?3, AND 
SLIP FRACTION , S. 

42 7S=VO-VL 

V B= ( VG ♦ H • VL) /( 1. 0 ♦a ) 

vesy= vp*vb 
s- vs/vb 

IF (-GEO) 180, 179, 180 

NOZZLE IS CIRCULAR - COMPOTE DISTANCE P ROH NOZZLE AXIS TO 
• ALL OF NCZ7.LS, YI. 

179 YC - SQRT (A/3. 14 16) 

TI=4.4 
R I =0 . 0 
GO TO 4 3 

ROZZLF IS ANNULAR - CCflrUTF RADII AND DISTANCES TO WALL 
OF ANNULAR NOZZLE, Rl,RO,YI,YO. 



S EC 3 0*90 
SET 3 0700 
SEC 3 0710 
SEC 10720 
, T B 3 A Y S EC 3 0 7 3 0 
SEC 3 ) 74 0 
SEC 3 0750 
SEC 1 0760 
SEC 1 0770 
S EC 3 / 780 
SEC 3 )74Q 
srci 3800 
S EC 1 1 01 0 
SIC 3 1420 
‘••••**SCC J 04 10 
*♦*•**5 EC 30840 
SEC 3 0450 
SEC 3 >83 0 
SEC 3 

SEC 1 3 880 
S EC 3 08^0 
SE^ 1 3430 
SCC1 3410 
SEC3 34?0 
SEC i )4io 
SE" 3 44 J 

Si: 3 ) 74 0 
5 EC 3 34r,0 
S EC 3 ) 470 
SEC 3 J4H 0 
SIC1 34*0 
SIC 3 1 340 
SIC 3 1010 

3 re 1 1320 

SEC M i 3 0 
SEC 3 1 J'iO 
SEC 3 1040 
SEC J 1 4 m J 
J EC 3 1 C JO 
SEC 3 1 440 
SEC 3 1 34 0 
SEC 3 110 0 
SI * 3 11 10 
S CC 1 1 1 2 0 
55 SC 1 1 13 0 
SEC 3 11*0 
SEC 3 1150 
SF/' 3 1 160 
S EL 1117 3 

sec j i loo 

SEC J 1140 
SEC 3 1210 
S EC 1 1 2 1 0 
SEC 3 12^0 
S II J 1 2 JO 
SIC } 1280 
SEC 3 1250 

3 F~ 3 1240 
SEC 3 1270 
SEC 1 12 MO 
S EC 8 1240 
3 EC 3 1 1 4 0 
SEC 3 13 10 



180 

181 

182 



T3 r = (R A XC* *2 ) - ( ( A*COS (PH I) ) / (2 .0* 3. 1 4 16) ) 
IF (???) 181. 182, 182 
• RITE ( 8 , 0 1 H 1 ) 

LL= 1 1 
GO TO 500 
31 = 608? (IS?) 

SO* (PA XU** 2) ♦ ( (A*CQS (PHI) ) / (2. 0*3. 14 16)) 
20=SQBT (50) 



SEC 3 1 320 
SIC3 1 1 '0 
SEC 3 1 3**0 
•SEC 3 1 350 
S EC J 13 40 
SrTl 1 370 
SEC 3 13 80 
StCJ 1 390 
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noon onn nnnn noon nnftn nnonnnn nnn 



r I* (MK0-H1) /COS (PM I) 
TG= (RO-F AXC) /COS (PHI) 



WHITE LIMES 1,2,3 OP OUTPUT AND GO TO 13. 



43 
64 3 



644 



IP (LCT1 -42) 644,643, 641 
LCT 1=0 



W3ITF (6,964 3) 
LPGCT=irGCT«- 1 
WRITP (6 , 10) 1 
WRITE 6,1032 
WRITE (6.1033 
LCT1=LCTU9 
GO TO 30 



LI’GCT 



X,P, R,V3, A.?G,TL, VG. V L 

VS,S ,0, a* ,3A , ALIMA, SETA, EHG , P«L 

RHOG , uHOL , i»AG,a uG, WG, PA , P B , liLA, HL3 



RTDPCINT OF I'TEPVAL - COMPUTE FTP-POINT PARA-FTEaS. 
b zs tT n idfoint/enppo ikt indicator so next entry to 32 
WILL 32 AN EN D POT NT. 



STATEMENT NO. SO 



50 I N T ■= 9 

N ST"T- 9 9 99 

INTERPOLATE IN VTSCOSTTT (GAS) TABL2S POP A AND 3 AT 
THIS GAS TEMPERATURE. 



N - 16 
N N - 1 6 

CALL INTFP (V I AG,N,TG,PA) 
IP (N) 2 3b, 2(Js , 2 o4 

205 LL- 1 ^ 

GO TO 11 42 

206 N = 17 

N N = 1 7 

CALL I NT FP (V IBG,N,TG,PB) 
IF ('■*) 207 ,207,208 

207 LL-12 

GO TO 145 

INTERPOLATE IN SPECIFTC HEAT 
THIS LIQUIDS TEMPERATURE. 

208 N = 5 
NH=5 

CALL INTRP (CAL,N,TL, P) 

LL = 1 2 

IF (N) 16 1,161 ,209 
20 9 N N =6 
N=6 



TABLES POR 



A AND 3 AT 



CALL INTFP (C3L,N,7L,P) 

LL = 1 2 

IP (N) 16 1 , 161 , 2 10 

COMPUTE MEAN SPECIFIC HEATS OF LIOUID, CLM, AND OP 
GAS, COM. 

210 CIM-ALPU A*CA L* ( 1 . 0- ALPHA) *C3 L 
C G M - ( 1 . 0-J-TA) *CAO* BP?A*C?G 

PHIA9= ( (I.''*- ( (VIA G/V I3G) *• . 5) * ( ( WBG/ WAG) *•. 25t ) *»2) / 

1 (2.826* , ( 1 . 0 + * AG/.DG) **.5)) 

P H I3A = ( (1.4* ( (VIBG/7 r \ t; ) •*. 5) * ( ( WAG/WCG) *♦. 25) ) **2) / 
i (2. 826* ( ( I.G + WBG/nAG) ** .5) ) 

COMPUTE MEAN VISC03 ITT OP A AND 3 GAS. 

VIG/1 = (VI AG/( 1. 3* (3E?A/( 1 . 0-3 ETA) ) • ( W AG/W 3G) * PM I AO) } ♦ 

1 (VTfiG/( 1 . 0> ( ({ 1.3 -BETA) /BETA) * { W3G/W AG) ♦PHI 3 A) ) ) 

INTERPOLATE IN 7ISC0SITY (LIQUID) TABLES FOR A AND 3 AT 
THIS TEMPERATURE. 



SEC 1 


14 00 


S EC 1 


14 1Q 


S SC ! 


1 4 20 


SE'M 


14 10 


3 EC 3 


144 0 


S PC 1 


14 50 


SEC 3 


1460 


S EC 1 


14 70 


S EC J 


14 4Q 


3 EC 1 


14^9 


SPC 1 


15)0 


SEC 1 


’6 10 


3 PC 1 


1620 


<~ n C 1 


1530 


3 EC 1 


154 0 


SEC 1 


1650 


S EC J 


1 5 » > 3 


S EC J 


1570 


S EC 1 


15 Hi) 


SEC* 


IV* 9 




1600 


5 EC 1 


1h 10 


SEC 1 


167 0 


3 EC 3 


16 10 


S- 'J 


16 10 


S p: C J 


itjsn 


SEC 1 


1 6 6 0 


SEC 1 


1670 


SEC 1 


164Q 


S EC J 


16 >0 


S EC J 


1790 


SEC J 


1710 


S PC 3 


1720 


SEC 1 


1730 


SEC 1 


1740 


SEC ) 


1750 


S E^ J 


1 76 0 


s nr * 


1 7 T 9 


SSC3 


1 7-0 


SEC 1 


17 *0 


S EC 1 


1 800 


SEC 1 


14*0 


SEC i 


19 70 


SEC 1 


1 H 30 


se; i 


1H40 


SEC ) 


1 *50 


SEC! 


1 HhQ 


SEC J 


18 70 


3 ~C 1 


1 4U0 


- j 


1 J 1 G 


S PC 1 


190 0 


S EC J 


19 10 


S EC J 


1 *2 ) 


SE^l 


n io 


3 PC J 


194 0 


SEC 1 


I960 


S EC } 


I'MO 


S EC 1 


1970 


3 &'* ) 


1 9 4 0 


s nc i 


19 )0 


SEC 1 


70<' 0 


? PC J 


2 vj 1 0 


S EC j 


3 ' 9 




2030 


SEC J 2 54 0 


SPC 1 


2 050 


3 EC 3 


:)60 


SEC 1 


2070 



SEC3 2)^0 
3EC3 2100 
SECJ 21 10 
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N* 14 
N N = 1 a 

CALL INTfiP(VIAL,N,TL,P) 

r fIn) 16 1 , 161 ,2 15 

215 b=15 
NN= 15 

CALL I*lTRP(VIi3L,N,TL,P) 

LL-1 3 

IF (N) 16 1 , 161 ,2 16 

COMPUTE M3AN THEBBAL CONDUCTIVITY OP GAS MIXTURE, KKGM. 
3 A AND ME AR £ USE SUBSEQUENTLY IN DE TERM IN ING HKGM. 

216 VI Lrt=AL?HA*V IAL* ( 1. 0- ALPHA) * VI BL 
Tl«<5J3*r (S\*S3)/TG* 1.0) *0,25 

T 2- l • 0 ♦ S A/TG 



13-1 .0* SE/TG 
TU=T2/T3 
T5- (wag/wfig) 

T6=VIAG/VI3J 
T7-S'jct7 (T6*T4*T5) 
A=T1/^ ' 



**0.75 



3 A . . _ _ 

BR“T 1/T 3 • 



2* (1. 0 ♦ T7 i •• 2 

1. 0* 1. 0/T7) **2 



INTERPOLATE IN THERMAL CONDUCTIVITY TABLES POR COMPONENTS 
A AND 3 IN GASEOUS STATE. 



N = 12 
N N = 1 2 

CALL IKTFP (HKAG,N,TG,P) 

L L - 1 3 

IP p) 1 4 5 , 145 , 220 

220 N*fJ 

N N= 1 3 

CALL INTPP (H KBG, N,TG,P) 

LL-1 3 

IP (N) 145, 145,221 

IP 9 ET A = 1 , FIRST TERM OP HKGM IS SET -0 
IP BETA =0 , 5 ECCND TEhM OF HKGM IS 3 E T = Q 

221 IF (BETA - 1.0) 22 3, 222,22 3 

222 HKG*1=0.0 
GO TO 224 

223 HKGM 1 = HK AG/( 1 . 0 ♦ ( EFT A/ ( 1 . 0 - 9 ET A) ) * ( W AG/rf BG) * B A) 

224 IF(bETA) 2^*5, 225,224 

225 HK GM 2 = 1 . 0 
GO TO 227 

226 hK GM 2 = H K EG/ ( 1.0* ((1.0 ♦BETA) / BETA) • ( » BG/V AG) *9B) 

227 EG E 1 ♦ '! KG M2 



COMPUTE VI, 7 2, FI, HERE POR USE IN ITERATIVE LOOP AT 
STATEMENT NO. 70. 



V1 = ( (99443.6 *TGJ/ ( ( 1 .0*R ) *WG) ) * ALOG 
1 ( ( P*DP/2. 0} / (P-DP/2 .0) ) 

V2=(9 2o6.0B* '*DP) /( (1.0*8) *K HO L) 

R 1 = 1300. C * °H OG *D) /VIGM 
IP (MOP) 51,52,51 



OPTIMUM X(P) IS TO BE USED. 



STATEMENT NO. 51 



51 
16070 



Cl = (D*ALAM*R(!OL) / (9.3*RHOG) 

S PLG- R/ ( (1.0 + R)**2) 

KDS = 1 
KDSCT * 0 
SMSO = 0 
NNSOO = 0 

DSfllN = -2.* (S*( 1.tR)/H) ♦1.0E-06 



SEC3 2120 
SEC3 21 10 
S Sr 3 2 1 4 0 
3 EC 3 2 1 5 0 
S EC 3 2 1 6 0 
S EC 1 2 170 
S EC J 2 100 
5ZC 3 1 19J 
S EC J 2200 
S SC 3 2 21 0 
SEC 3 2220 
SEC 1 22 >0 
SEC 3 2 24 Q 
5 EC J 2 2 5 0 
r>zr 1 2.?'>o 
.SFCJ2J70 
S EC 3 22^0 
SEC 3 229 0 

S EC 3 2 3 00 
S EC 3 3 1 1 0 
S’C J 2 120 
SEC 1 2 1 <0 
3 EC 3 2 34 0 
SEC 3 >350 
SECJ 2 36 0 
S EC J > 3 7 J 
SE" 1 ? 1 >0 
SEC 3 2 1 *0 
SEC 3 24 10 
3 EC 3 24 10 
3 El' 3 24 ->0 
SEC 3 24 3 0 
EEC 3 ;n ;0 
SEC 3 24 50 
3 EC 3 2 4 (• 0 
S EC J 24 73 
SEC J 2 4 « 0 
C EC 3 7-, '7 0 
S3'’ 3 250 0 
3 S'* 3 25 10 
SEC 3 25 20 
SEC 3 2530 
SEC 3 ^ 54 0 
C EC 3 2550 
SE':3 > 5 0 
SIC 3 25 7 0 
SEC 3 25^-0 
S EC i >5 Ml 
S EC 3 >600 
SIC 1 >t>10 
SEC 1 '62 0 
S FC 3 2 6 3 0 
3 EC 3 7->u :) 
SEC J 7 r»5 0 
SEC *2 CM: ) 
SCC 3 2 6 70 
SEC ^ 2 6 3 0 
SEC 3 2690 
S EC 3 2 7 0 0 
SEC 1 27 10 
SECT 77->0 
SECJ2710 
SEC 3 2740 
S EC 3 :750 
SIC3 2760 
SRC 3 2770 
3 EC J 3 78 0 
3EC32740 
S EC 3 2rt 00 
SEC 3 23 10 
3 EC 3 2«20 
3ECJ 23 10 



non n nr»nn nnnn nnn 



DSNAX = 1.0 ♦ B - 1 • 0E-06 
GO TO 70 

SPECIFIED X(P) IS TO 82 USED. 

52 P 1 0=P* D P/2-0 
PI 1=P-DP/2.0 
P I N7 S P 1 0 
K L = 1 

GO TO 11 00 

1152 1 1 0=X I NT 
PINT-P 1 1 
KL=2 

GO TO 1 1 CO 

1153 X11=XTNT 

GeT DIFFERENCE OF INTERPOLATED X VALUES FROM 
X (P) TAB LF 

DX-X10-I 1 1 

S1-(0.75*RHOG* (1 .0^R)*DX)/(D*RHOL) 

S2“(Uh 3 3.CU* (1.0*H) * DP ) / HHO L 

53 - ( 1 . 0 ♦ R) /2 .0 

54 = 2. 3*DF/ {1 .0*F) 

GO TO 16070 

INTERPOLATE IN TO <(P) TABLE FOR TWO PRESSURE VALUES 
AT EITHER SIDE OF CURPENT INTERVAL. 

1100 CONTINUE 

THIS CHANGE TO ALLOW FOR NONOTONIC INCREASING OP DECREASING TABLE: 
TERZ-PINT- <? ( 1 . 1) ♦I.OE-o 
IF (XP(1, 1) -KP (1,2) ) ) 1106,1102, 1105 

1106 CONTINUE 

DO 1101 KR=2,KXP1 
Tr = XP (1 -K R ) - PT NT 



a. r ^ i - * ; \ i # r i 

IF (TFR ' *TEr:2) 1 10 1 , 1 104 , 1 1 04 

101 7 F !> 7 = - I C P Y 



1 

i io i cun e 

GO TO 1 1 20 
1102 CONTINUE 
K 3 = 2 

1 104 K D 1 1 



XINT-X P f 2.K3 1) ♦TEKZ/ (X P ( 1 , XB) - XP ( 1 , K R 1 ) ) * 
GO TO ( 1 l5j, 1 1 53) ,KL 
CONTINU E 



(IP (2 ,KR) -XP(2,KR1) ) 



F |tKRZ*0.001) 1 120', 1 120; 11 10 
EP7=- 1 .Q0*TERZ 



1 105 

1108 IF 
1110 TEP 

GO TO 1 1 C6 

1120 • R ITZ (6,9105) PI 0 , PI 1 ,XL, TEBZ ,T£RT, PINT 
LL-1U 
GO TO 500 
30 N S T “.T - 3 0 
RETURN 

1142 NGTT p =1142 
RETURN 

145 NST«T=145 
RETURN 

16 1 NSTHT-16 1 
SETUP N 
70 NS I1T= 7 0 
RFTLTN 
500 NDIAG-1 

CALL 0 UTPUT ( HN N, L PGCT, OG SO) 

N STM ? - 110 
RETURN 



FORMAT STATEMENTS FOR 9-LINE PERMANENT OUTPUT. 

) , 1 3X . 1HX. 1 3X , 1HP. 1 3X , 1HH , 1 2: 

! I,2HVG, 12X,2UVL,/,6k, 1P0E14.4) 



1 00! 1 * *.H! X A.!2? * \ H ?t a™?*. 1 2X,2HVB, 1 3 x , !HA , 12X,2HTG, 12X , 



1 EC 3 *» 460 
S EC 3 2 3^0 
S EC 1 H79 
SCO 3 ’H60 
SEC 3 2R 70 
S P C 1 2° 10 
SEC 3 20 10 
3 EC 3 24?0 
SEC 3 23 <9 
SEC 1 264 0 
SFC 1 ">05 0 
SFC 3 296 0 
S EC 3 20 70 
SEC3?-»30 
S EC 3 2 0 0 Q 
SEC 3 3000 
3 EC 3 3010 

sec? n?o 
sec no io 

S FT 3 304 0 
SEC 3 USO 
SEC 1 ’0*»0 
SFC 1 3 0 72 
SEC 3 3 0M ) 
SEC 3 1-.V’*0 
SEC 3 3120 
S KC H 11 3 
SLC » 11 CO 
s ec i mo 
SE'M 3140 
;SEC1 3150 
SEC 3 1 160 
OF* 3 3 17) 
S EC 3 i 1 '>0 
S EC 3 J 16Q 
2?" 3 32''0 
SEC 3 3 210 
SCO iCCJ 

sc: 3 32 30 

SEC 3 124 3 
S EC 3 3250 
SEC J 324 0 
SEC 3 3 >70 
SEC 3 32*0 
3 EC 3 3 2 >o 
SEC 3 3 3 00 
STr 3 3 30 1 
Z?ri 1 302 
SEC 3 3 30 3 
s ec i j m 

SEC 3 3 3 1 1 
SEC 3 3 3 20 
S EC 3 J J 3 0 
S EC 3 U4 0 
SEC 3 3 350 
S EC 3 3 ho 
SEC 3 3 3 70 
SEC) 3 HO 
SZ'.' 3 3J Jli 
SEC) 34 00 
SEC 3 1410 
SEC 3 >4 20 
SEC 3 .3 4 30 
SEC 3 344 9 
S EC J 3 450 
S EC 3 1 4 1, 9 
SEC 3 3 4 70 
SEC 3 34 HO 
SEC 3 3400 
SEC 3 3500 
SEC3 35 10 
SEC3 J520 



154 



1002 FORMAT 


( 1 HD » 1 2*. 


2 ii vs # nx, 


HIS. 13X.1MP, 


i 2 x, 2 nr.v , 1 2x,2im,9x, 


S EC 1 1510 


1 5 H ALIM A . 10X. 4i!3 


ST A. 1 2 X .2HBG. 12X.2HBL 


,/,6X 


, ir 3E 14 .4) 




SEC 1 154 0 


1003 F0P1.A7 


( 1H0,1 IX, 
PA, 12T ,2H 


DUPOG. 1 IX 


. 3 FI R 01. . 1 1 X. 1 11 W AS , 


1 IX. 1 M3G, 12X,2H«G, 


SEC 3 15^0 


1 12X.2H 


tb, 1 2X, 2HL\, 12x , 2M L? , 


/ , fi X . 


1 P9 ri 1 4 . 4) 




S EC 3 <5.VJ 


9 105 POSHAT f 1 KO. 1*1 •! STEP 52 - 


?•» ES3U tiE 


03 T 


OF RANGE DP 


*l\ ,7HPi10CEf> 
ITEn AT ION 


S EC 1 15 7-j 


1 1 6 HTAL1L b. 


r i = 


. 1PE 14 . 4, 


3< . 


59P2 


pur .IF LAST 


S, SIC » 15.10 


2 2 


4 U CONTINUED TO NE 


XT CASE.. 


27 fl 


CUT 


, s EC i 1590 


3 OfIfCLI.O-3. 


/1 20. 3:20 


.?) 










SEC 1 10 '0 


9101 P9R.1A- 


f 1 HO -7 X- 11 HNSGATIV 


Z .11) 










SEC 3 J6 10 


9f»4 3 rorrar 


1H1J 20 X 


# 5H?AG.*: , 


13./, 1H0, 


28 H REAL 


TW0-PHA32 TWO -CO B PON ENT SEC 1 io.>0 


1 * 1 21' ?r 


OZZLS FLCV// ) 










S EC 1 lf> 30 


£mo 
















SEC 3 154 0 




S C3ROOTI NE 


SECT 4 










3 ECU D 0 1 0 


cobbon 


TZ22AY 














3 ECU ; )?0 


DIMENSION TZ7ZA 


T (11200) 












3 ECU 01 30 


C THE A30VE COBBON BLOCK FOR S OflROUriN FS TABLE AND INTRP 


SEEN 3 050 


C IT 11JS 


7 PS THE 


FIRST COBBON 3L0CK 










S EC '* 0 05 0 


COBBON 


A 


. AO Ail 


, ALAn 




ALPI1AP , ALPHA 


, ALPHBD , 


S ECU 30 70 


1 


AL? US 


, \n 


. A? 




AS 


, A 


, li.A 


i EC ■* 0 O'lO 


<• 


aa 


, detau 


, bet Ana 




?~7A 


, 3 Z 7 A 3 


, 31 , 


S FC4 00 ‘D 


J 


c 


, cl 


, C AG I 


0 


CAGM3 


C AG 


, CAL.m , 


3 ECU 0100 


4 CBG1 


, CAL 


, CASE 


, C3G13 


$ 


C n G 


, C3I..13 


, v. J L 


S r T4 ) MO 


cor, bon 


COBS 


, CO? 


, CO 




CF 11 


, CP! .13 


, cron , 


3 EC * Ml 2D 


6 


crons 


, COVt 


, CGI 




c sis 


, C L N 3 


, C L>‘ 


SEiM MM 


7 


clbs 


, CSAVE 


, o 




D2 


, J A 


, t)A: r , 


3 EC i J 1 u 0 


a 


DD 


, OELIB 


, DELI 




PI MS 


, HE LOB 


, DELO , 


SEC 4 0 150 


9 


DELOS 


. OE LSI 


, DEL 30 




OCLTB 


, PELT 


, DEL 7 2 


3EM D 1 f> 9 


COBBON 


DEB AO B 


. DE1AG 


, DE.nnGD 




D V. IDG 


, HEB'in 


, PINT , 


SECi M70 


1 


D L3 I S 


, DL30S 


, DO 




DP 1 


P P 


, D.1AY 


SEC 4 )1 30 


2 


OKI 


, 0 R 0 


, o a 




DS 1 


PSA VS 


, p.iLia 


3 EC 4 )1 >o 


3 


DGB A X 


. OS UN 


, DSP ATI 




DC SAY 


, D;MES1 


, n..«LS2 , 


S ECU )2 >0 


4 


ora ss 


, 0 J 


, D 3X 1 




OCX 2 


, DM1 


, PT 13 


3 ECU MID 


COBBON 


DT3 


. OTMt 


, DTH.n 




DT LI 


, PPLd 


, DFL 


3 EC 4 02^0 


6 


DT 


, 0VB3Q 


, DVG30 




0 V L3 Q 


, P X 


# PYI , 


S ECU >2 JO 


7 


DYO 


. eh 


, EDS 




El A’*. 11 


, s r AG 


, E^'JGB , 


3 EC U . 1 2 u 0 


a 


EBB G 


, eh o a 


, EnG 




Fn r.s 


, y. b i.h 


, "1 LB , 


3 ECU 1.^0 


9 


F.BL 


, E B LS 


, FI? 




FSO 


, PLECP 


, fux 


3 F ' 1 )P*»0 


coaflon 


11 


. IWI 


, IlKAvi 




fl K PG 


, 1KSM 


, 1 1 rv ; r 2 


sec » )?.~n 


1 


hk: b 


, HKG.15 


, l LA 1 




Hi. An 


, H L A 


, HI. A 3 


3 EC U M "MO 


2 


HLD 1 


. !IL ri 


, DLL' 




HI.TJ 


, -i .1 


, ms 


S EC 4 OC'M 


3 


HOP E 


, MT 


, I AC 7 




I3L- 


, T.DLX 


, row 


3 E<; rjl)0 


4 


: jh 


, T NT 


, I SET 




IT ERO 


, < 


, K i 


s ecu o no 


COBBON 


K2 


, K A? 


, KDSCT 




<D.i 




, K?1 , 


3w"4 : ro 


6 


K ^ 


, KT3CT 


, KT j 




K (PI 


' ^ <P 




s re u mo 


7 


L 1 


, 1.2 


, I.CT 1 




LC 72 


, LL 


', LPGCT ; 


3 EC 4 M i 0 


8 


LSW 


. « an 


, 1FP0 




n-? 


, 1 GEO 


,11 , 


JSC 4 MDO 


9 N 


, BO? 


, ;iTnr 


, N AC V 




N 3 


, N C LX 


, NCT5 


SCC4 ) MO 


COBBON 


SOI AG 


, NOS 


GG 




NIB 


, V 13 


, NLST 


3 EC 4 )i 7Q 


1 


N N A 


. n t« a 


, *rios 




N-.N 


, rip 


, \* N , 


SE'"U > 1 H J 


2 


•i N3 00 


, :;nso 


, NNS 




N P 


, NSC) 


, N3 , 


3 y j i i )o 


3 


P 


, ?n 


, PM 




P A 3 


, <M*3 


, PA , 


3 EC * 04 n 


4 


PAS 


, P 03 


, rone 




P309 


, ? 30 


, ^3 


i ECU jU 1 ) 


COBBON 


PBS 


. ? i! r a a 


, PHJBA 




nil 


, PINT 


» ?L 


s E r ' U >4 oo 


6 


PL1 


, PO 


, PS 




PT 


, 2 


, :id 


SEC 4 04 3 0 


7 


R 1 


. PA 


, 3 AS 




RAXO 


, n AT 


, S3 , 


3 S'" 4 14 4 0 


a 


PC 


, ?. DEL IB 


, PDEL01 




FI) IBS 


, .* DO LS 


, PEr 


3 E 0 4 ^430 


9 


R En 


. R SIS 


, 3 E3 LI 1 




R^SJ 


, '"5 2 


, H 0 G B 


3 ?/' * >4h0 


COBBON 




, R HOGS 


, 330L3 




RMOLB 


, t* :n l 


, Pci )I.S , 


> E 2 ‘4 ju 70 


1 


RIB 


, ?I 


, 3* 




ROAL 3 


, 1 0 A L 


, ^ 0 J L 3 , 


3 ECU ‘Vi *4 0 


2 


F 03 L 


, non 


, HO 




R 


, IS LIB 


t 3 , 


SEC** ■ rM 


3 


RVB 


, P V 


, 1 vs 




S 


» 1 1 


3 * , 


S ECU ' 5 0 J 


4 


S3 


, 3 4 


, 3 A 




S3 


, ;g%* 


, Cl 1 


3 EC i J r M0 


COBBON 


JIGS 


, s ,n r n 


, snji 




S1J2 


, S B LC 


, GILD 


S EC 4 05 "* 0 


6 


S.1LE 


. SBLP 


, 3 1 LG 




SI 


, S0J1 


, 13J2 


SEC- 0530 


7 


30? 


. SO 


, SOS N 




S3 


, J <*.l 


, S Z 0 , 


3 EC 4 )5u0 


0 


T 


, TB 


, T oE A Y 




73RAY1 . ” G B 0 


, 7 GO , 


3 EC 4 055 0 


9 


?G 


. TGS 


, TH IB 




THIO 


, r H I 


, THIS 


S ECU 4^,0 


COBBON 


TIP B 


, T tlOO 


, 7 HO 




71103 


, TK 


, T K , 


3 EC 4 )57 0 


1 


7 LB B 


, T LO 


9 l L 




71. S 


, rsT 


, 7711 


3 ECU 05 1C 


4. 


7*1 BS 


, 7 * OB 


, ?WOBS 




V 1 


, ^2 


, v \ ;< , 


3 ECU 054 0 


3 


VDD 


. V BDS 


, V 3B 


f 


7IMS0 


, V 3 


, V3S*2 


S ECU 0500 


4 


VOS 


, VGO 


, V G 


0 


VGSJ 


, VGS 


, 7 I AG 


SEC 4 0610 
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COMMON 


VIAL3 


, 


7 IAL 


, V I9G 


, VIBLB 


, 7IDL 


f 


VIGM 


9 


SEC4 3b70 


6 


views 


, 


VI LB 


, VILA 


, VI LIS 


, V I. M 


t 


VLO 


9 


SEC 4 0630 


7 


VL 


, 


VLSO 


, VLS 


, VS 


, 7SS 


* 


WAUD 


9 


S^^U IbUO 


8 


WAS 


, 


W AGS 


, * A L 


, VOGU 


, J MG 




W B J 3 


9 


z 4 2 6 SO 


9 


W CL 


, 


WG’J 


, WG 


, WGS 


, dir 


, 


WINS 




3 ZC'4 )hhQ 


COMMON 


VON 


, 


d QMS 


, X 


, X10 


, VII 


, 


XCLK 


f 


S p C 4 16 70 


1 


XI NT 


, 


XP 


, is 


, XX 


, XX a 


, 


Y I 


$ 


SrC4 ‘*>30 


2 


YI3 




YO 


, YOS 


, zzz 


, U STMT 








SEC 4 5 0 



DT MC1I3 T 0 N e-L i, . _ . 

DIMENSION N PR AY (75) 

DIMENSION DATE JS) .CASE (3) , QrD(H) , XPf 2,75) . PL 1(10) , 

1 . Xa A (0) , DSP AY (133) , DSRA Y1 (13 0) , T3RAY (100) 

2 1 (100) . P FA Y ( 75 ), HT ( 1 8) , 31 NT ( H) 

EQUIY A L ENCE (NDUAY ( 1) ,DRAY ( I) ) 

IF (NSTMT-60) 1, oQ, 2 

1 CALL DOT 

2 IF (NST1T-63) 1 , b3, 1 

END POINT CF THIS INTERVAL O p PR ESSHR E . 

COMPUTE CHANGES IN FLOW PARAMETERS THIS INTERVAL. 



STATEMENT NO. 60 



60 IN 1=1 

NST ,, T-9?99 
V B= A8S (SCRT( VDSQ) ) 

COMPOTE NEW SLIP FRACTION , S, AN 0 NEW DISTANCE, X. 

IP (NPPO- 1) 40 01, 4000, 4001 

4000 S = SM 

r, o to 4^02 

4001 S=S*D3 
4 002 1-1*CX 

COMPUTE CM A WOE S IN SQ U A a E OF GAS AND LIQUID VELOCITIES. 

DV03Q* f f 1.0* (R *S)/ (1 .0*R) ) •*?) •VBSO- VGSQ 
D V LSQ - j ( 1.0-3/ (1.0*R) ) ** 2) *VGSQ-VL3Q 

COMPOTE CHAN 023 IN OAS A NO LIQUID FLOW RATES. 



3^*4 ^7 jO 
SFC4 0710 
src 4 : 72 o 
,TBRAY3FC4 j 7 30 
S PC 4 ) 7^0 
SEC 4 >7SQ 
SEC 4 ') 7 S 0 
SEC 4 j 77 0 
S ECU 0700 
SEC 4 }700 
3 EC 4 

S ECU 08 10 
SE’4 WO 
******SEC4 M 30 
**•* ••52C4 0440 
SEC'; 0 h S 0 
J SC 4 J85 J 
3 E J 4 J 47 0 
SEC 4 5 3 <0 
S3.C4 Wf, 
SEC 'I V)J0 
SEC 4 WQ 
si-:c4 o 170 
SET 4 )'M0 
S S'” J * 0 
SEC'i )O 5 0 
sec 4 ) ko 
SSC4 ) 07 



D?KAG= f 7 . rG*rf AO *PA) / ( 
l ZMUG= { E "G *4 DC * P U ) / < 



-U*P) - EM AG 
M -EM TVG 



COMPOTE CHANGES IN GAS AND LIQUID T ENP FEATURES. 

DTL= ( 1 .0/CLM) ♦ (( (UM*P2 LTM*DX ) / (600.* D*FHOLM* VLM) ) 

1 - ( ML AM* OEMA<./*NLn) - (ULBS* JF.T5/E-W) ) 

D EtT=TG - TL 

DTG= <- 1 . 0/C3 ft) * ( (U7G3J/S 0072.0) ♦ 3 * 

1 (CLM*DTL*DP/(5. 40 30*RHOLO) ♦DVLSQ/ t )0 072. 0) 

2 ( (DEMAG ♦DErtlK.) • f >EL7 2) / (50072. 3* FWG) ♦ 

J ( (HLA HCAG1*LELD *0 EM AG ♦ ( HLU 1 *C 3G 1 • D ELT) • 

4 DEWbG) /ETC) 

I F ( ( 1.0 ♦ (R * CLM / CGiin * ((HM * DX) / (630.0 * D * £ 
1M * VLM) ) - 1.) d075 , 9076 , ^0 76 
8076 DTL = 0. 

DTG = 7.0 

IP (P- 0. S*PO) 80 75, 30 7 4, d074 
9074 CONTINUE 

C THIS LAST TEST ADDED TO DELETE NEXT T EST AT END OP NOZ7.LE 
XX = P 

C CHANGE TO SAVE THE LAST P FOR PRINTOUT IN 32CT1. 

8075 CONTI WOE 

C COMPUTE NEW TEMPERATURES PO B LIQUID \ N D GAS. 

C IF EITHER TS NEGATIVE PRINT DIAGNOSTIC AND EXIT 
C TO NEXT CAS?. 

VGSO=VGSC*DVGSQ 
IP (VGSQ) 233, 230, 231 
230 WRITE (6,0230) 

LL*15 



S EC 4 


' >»> o 


SEC 4 


w 1‘IQ 


SEC 4 


1JOO 


S ZC 4 


n n 


SEC 4 


1330 


r. £■" 4 


10 10 


S EC 4 


10u0 


S EC 4 


1 050 


S r.' 4 


1 Of.O 


SEC 4 1370 


SCC-4 


1340 


S C C4 


10 '10 


3L''4 


1 1 50 


SEC 4 


1 1 10 


SEC 4 


1120 


5 EC 4 1 1 ?f) 


SF.C4 


1 1 uG 


SEC 4 


1150 


see 4 


1 ISO 



l n 



R HOLS EC 4 1 170 
3 F"4 11 43 
S? ’4 1 MO 
SEC 4 1 220 
3 SC 4 121Q 

S S'” 4 1 220 
SEC 4 1 2 10 
SEC 4 1240 
SEC4 1250 
3 EC 4 1 2 S 0 
3F.C4 1270 
SEC 4 1 /.HO 
S EC 4 M'»0 
SEC4 1 300 
SEC 4 13 10 
S EC 4 1 120 
5 EC 4 1330 
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GO TO 600 

231 V L 30= V L S C OV L3 0 

IP (VLSQ) < 32 . 232 , 23 3 

232 -PITS (6,9232) 

LL= 15 

GO TO 5 00 

COMPUTE HE* VELOCITIES POR LIQUID AMD GAS. 

233 VG=ABS (SCRTf VGSO) ) 

V L = A BS (3CST( VLSQ) ( 

COMPOTE PATIO OP GAS PLOW A3 EA TO LIQUID PLOW AREA. 
RA=RV* (VL/VG) 

COMPUTE NEW LIQUID AMD GAS PLOW SATES. 

EMAG=EMAG*D5MAG 
KMEG=S N 3G*D5 *BG 
D ELV2- VG SQ-V LSQ 

SET 0? INITIAL QUANTITIES POS NEXT END-POINT. 

DT LI =0 T L 
07 0 1 = 0 T G 
HLA1=H LA 
H LEI -HL3 
D E LT = T3 -TL 
C A G 1 = C A G 
CC'Jl-CSG 
VS*S*VB 

INTERPOLATE INTO SURFACE TENSION TA3LE AT THIS LIQUID 
T EM PET' AT >1 RE. 

- ; 3 
N N = 1 8 

CALL TMTRP (SIC ,N,TL, ?) 

L L - 1 6 

I P (’1) 16 1,151.240 

IP DROPLET BREAKUP OPTION SPECIFIED, COMFUTE DROPLET 
DIAMETER. 

240 IP (MFU- 1)243,233.24 3 



238 D ? - (. J 1714* 31 G) /(P^OG*VS**2) 
I ? |, -n2 ) 24 3, 263,219 

239 D 3 D2 



COMPUTE CHANGE IN NOZZLE C 30SS -S ECT ID N AL AREA SINCE 
LAST END-POINT. 

241 DA 3 1 4 4 . 0 • EMG • ( 1 . 0 / { R HOG* VG) ♦ R/ (RHOL* VL) ) -A 

COMPUTE MEAN AREA 0 IT W ESN THIS AND REVIOUS ENDPOINT. 

AM=A*DA/2.0 
COMPUTE PRESENT AREA 



A= A* DA 

IF (KGEO- 1) 67,68,67 

COMPUTE 3 A Cl T AND DISTANCE FROM AXI > 70 WALL DP 
CIRCULAR NOZZLE. 

**•**«***,*,«** STATEMENT NO. 67 ****♦**•»•*•*** 3 



67 DYO^SORT (A/J . 141b)- YO 
RCM= VO+ DYO/2 .0 
D80=PY0 
Y0 3 Y0*DTC 
RO=YO 



SEC 4 


114 0 


S EC 4 


1 350 


Se.ru 


1 36 0 


S ZC 4 


1 170 


S ECU 


1 3>»0 


S ECU 


1 300 


S FC 4 


lulO 


G ZC4 


14 10 


5 SC 4 


1 4 20 


SEC 4 


H 30 


5 EC 4 


144 0 


S ECU 


14SQ 


32C4 


1460 


3SC4 


14 70 


S EC 4 


1 4 ‘1 0 


3 ECU 


14 )0 


SEC 4 


1590 


SEC 4 


1S10 


SEC'* 


r>73 


3ZC4 


15 30 


SEC 4 


1 54 0 


SEC 4 


1 S3 0 


JZC.u 


IS6 0 


SEC 4 


1570 


3 EC 4 


1 6 s 0 


5 EC 4 


WO 


3 EC 4 


t 600 


3 EC^ 


1610 


S E ^ 4 


WO 


SEC 4 


14 10 


SEC 4 


1 6 4 0 


> EC 4 


1 0 r - 0 


3 EC 4 


IfSQ 


”C ^ 


14 70 


3 EC 4 


1410 


G EC4 


1* ' ) 


SEC i 


1 7 ' 0 


SEC* 


1710 


SEC'i 


1 770 


S EC 4 


1 no 


SEC 4 


174 0 


S EC 4 


17jO 


3 SC 4 


17*, ) 


3 E~4 


177 ) 


S3C-* 


17 10 


3 SC i 


174 0 


J pn i 


wo 


-S ECU 


10 10 


3 EC ♦ 


WO 


I> S C 4 


1010 


S* 7 '’ 4 


i'**3 


3 EC * 


1 <5 0 


j 5* 


1 46 ) 


ss r '4 


in to 


3 EC 4 


n-0 


sr-u 


14 >0 


0 EC 4 


1 no 


S EC 4 


mo 


3 EC 4 


1073 


S EC 4 


14 13 


S SC * 


1940 


3 EC 4 


WO 


” t. C 4 


WO 


5 EC. 


I <70 


SEC 4 


1 W 


3 L*0 4 


t 5 m 0 


S -4 


7000 


STC4 


2010 


SEC 4 20 ^0 


SEC 4 


2330 


3 ECU 


2940 


S EC 4 2 US 0 



nonn onno onoon non non non nnoo 



WIf»=9. 7 
DELI =0.3 
DELSI= J . 0 
POELI H-0 .0 
CF 1.1 = 0. 0 
1*11 =0.0 
GO TO 6 > 



C0.1PUTE G ECflET R T OF A M NU LA R NOZZLE AND BOUNDARY- LATER 
GROWTH ANC OH FAR FOR UNSH WALL. 

68 H A X = R A XO-X*S IN (PHI) 

IF (PAX** 2- (A *C03 (rHI))/(2.0*3. 1416) ) 24 I, 242, 24 2 
241 WRITE (6,9<4 1) 

LL=1 7 
GO TO 500 

24 2 DRI = S,)7T (RAX** 2- (A*C03 (?H H )/( 2.0*3. 14 16) ) -RI 
D R C= 3 Q ? T (RAX** 2* (A*COS (P HI) ) / ( 2. 0 * 1 . 14 16) j - BO 
RI* = 4 I*DRr/2. 0 
RI=RI* DPI 
R0f*.= RO ♦ DRO/2 . 0 
RO = FO»- DEC 

UYI= (WAT-PI) / (CO 3 (PHI) ) -YI 
DYO= (2 ) -FAX / COS (PHI) ) - TO 
TI=YI*9Y I 
Y0=Y9* QTC 

COMPUTE ANGLE 07 NOZZLE INNER WALL RELATIVE TO AXIS. 



W 13= (A T A N (DYT/DX) ) 

WI “ = •! 1 • 5 7.3 9 5 7 H 

24 6 DT H 1= 0 . r >«CFi :* ( ( ;\.Y* B.l) / ( 1. 0 *RT ) ) *DX 

1 ((1.141 •DVRSV) /VHloQ-DA/AH+DnT/ PIfl) 

TWIN- ( C F I * J . * 7 HO L * V LS Q ) / (6;>5 9.b* (1.0M1 A) ) 



THra< 



TH I = TU I •• C“MI 
D E LI ■= 1 i. 29b* TH I 
D E L5 I = 1 . 2 <57 •THT 

69 DTHO=9. b*C!*7 1* f C»!1*B,H) / ( 1 . 0 ♦ t? « ) ) •DX-THOl* 

1 ( ( i . i u ) *nvi!so) /VHrsg-DA/A **op.o/ Ror.) 

TWCa= («jFCK*;<»IOL*VLU\i) / <b65 9.b* ( 1 . 0 ♦ & A ) ) 

TI10=Tl)o ♦ CTHO 
DELO= 19 . 2*5* THO 
DELSO= 1 . 57 *T HO 

COMPUTE ANGLE OF NOZZLE OUTER WALL RELATIVE TO AXIS. 

WO*=ATA N (DYO/DX) 

W 0 K = 5 7 . 2957R • wci 



COMPUTE H 2 A N VELOCITY (INCLUDING BOUNDARY LAYER) . 

251 V9D= VD • (1.3- ( ( 2. ■) *3. 14 16) /A) * 

1 (rd«ThO ♦HI*TIII) ) 

GO TO 6 1 

IF AREA LES3 ZFPO, NOZZLE IS CON VERGE N G AND THROAT HAS 
NOT JUST BEEN PASSED. IF NOT, NOZZLE THROAT NAY 
H A V F JUST BEEN PASSED. 

61 IF (A-AT) 66,62,62 

ADVANCE STEP C On NT AND RETURN TO STEP 30 I? .1AXINU1 
STEP COUNT NOT REACHED. 



62 NNS=NNS*1 

IF (NNS-NS) 33 ,260, 2b 0 

INITIALIZE TB AND COUNTERS AND GO TO STEP 140 rO 
CODPHTE EARRSD QUANTITIES. 

260 TB*TL 
N MS-0 



8EC4 29hO 
3 EC 4 7 97 0 
S ECU > U°0 
5 EC 'i 2 9 »0 
5?C* 71 n 0 
S ECU 2 1 19 
SLZU 2120 
S EC 4 2 1 <0 
3 EC 4 2140 
S EC 4 2 150 
S EC 4 >1*0 
SEC'4 2173 
S PC 4 2 1 7 0 
SEC'J ?19J 
SZC4 2700 
S EC 4 >210 
S SC 4 2 2 29 
SEC 4 72 0 
3 EC 4 2 ’ 4 0 
sec - 4 >.:so 
J rC4 7750 
F EC ♦ 22 73 
S ECU > ’HO 
3 ECU 2 2 1 0 
SEC 4 2 JO 3 

sec 4 1 no 

SEC 4 7 1*20 
3 EC 4 2 I’O 
SEC i 2 7*40 
SE *4 2 35 0 
’HO 
3 “C'4 J 17J 
Jr"*'. .0-4 0 
? L* ‘ M»0 

5 EC* 24 00 
; 2 C '4 > 4 1 9 
5 EC 4 2420 

SEC'4 ^4 1 0 
ECU 7^4 0 

r*-r‘i > c,o 

SEC 4 ’ 4 *• 0 
SEC 4 2u 70 
s ec 4 :*i g 

SEC 4 J 4 Mj 
SEr’4 2530 
SEC'4 ’5 1 0 
3 EC 4 _5? 0 
S SC~» 35 10 
SEC 4 7 54 0 
SEC'4 '550 
SEC 4 7SnO 
3 EC 4 2570 
3 ZC : 4 ’56 0 
SEC ♦ 2510 
3 EC 4 2^00 
E EC ^ 2 6 1 0 
5 ECU 25 7 3 

sk:: 4 

3 PC 4 75 4 0 
SEC'4 7 b 50 

SE24 ’6^0 
S EC 4 2670 
SEC 4 2bH0 
SEC 4 ..693 
SEC 4 2790 



16 3 



no onoo 



SNB- 


s 1 


SEC4 2 720 


GO TO 1 UO 


5 EC 4 2710 
3 SC 4 2 710 


OUTPUT U A 5 JUST BEEN PHI HT ED. 9 ETURN TO STEP 33 


SEC4 7 7 r )0 


IF 


ITERATION IS NOT COMPLETED. 


SEC 4 2 76 0 
secu 2*> ’0 


63 N NP = 


r y K p ♦ 1 


5 EC 4 >7 10 


NSTflTOy 97 


S EC 4 27^0 


IF (NNP-NF) 30 ,64,64 


sec 4 :boo 

SFP4 2 S 1 0 
SEf4 >8 20 


64 PL 1 1 


[ 1) =xs 


s ec 4 jh n 


PL 1 i 


21 -PS 


sec 4 ?suo 


P LI l 


[3 *8S 


3FC4 28S0 


PL 1 I 


4) = V ES 


S EC 4 ’> PO 


PL 1 1 


r>) -as 


S EC 4 2M70 


PL 1 i 


M - T G5 


3 ECU m 3 


PL 1 j 


(0) =TL3 


3 EC 4 ?‘P0 


pn i 


nj = V GS 


SEC 4 >700 


P L 1 { 


4|=VLS 


SE~4 201!) 


PL1 | 


13) - 1.0 


S rru 2)20 


WRITS (18) P L 1 


SEC4 2730 


3 EC 4 >7uo 


264 CALL OUTPUT (N HH , LPGCT , 21G EO) 


SHU 2 9=^0 


GO TO 110 


S ECU J7MJ 


66 AT-A 


i 


SEC 4 >770 


PT-P 


1 


3 S^U ? 77() 


XS = i 




S E" 4 mO 


PS-P 




SEC 4 IPO 


T L 3= 


1 TL 


S EC 4 ) 0 1 '.) 


VGS= 


• 7 r > 


SEC* 1 J 20 


Rs*a 


f 


SEC4 jJ )0 


V ES = 


V 3 


n cc u i j u o 


A3 = A 




SEC 4 WO 


Z GS = 


TG 


SEC 4 iChO 


y t . s = 


= VT. 


SEC 4 U7J 


V 33 = 


VS 


S r! ’ 4 mo 


SS-3 




3 ECU W) 


nn=c 


I 


SEC 4 3 1 '0 


P «3 = 


rv 


S CC '4 IPO 


R A3 = 


? \ 


SPC4 M 20 


A L PH 


IS* ALFHA 


5 ec u mo 


BETA 


BETA 


S EC 4 PuJ 


SI 03 


; = STG 


S ECU PS) 


h :1 LG 


i = 3 ^ L 


S Zf 4 Mp 


EH CO 


;S = f>!lCG 


S EC 4 P 7 0 


R HCL3= 3 HCL 


SEC 4 P^ j 


■ At;:’ 


-■AO 


S EC 4 ( 1 n 


■ dt«3 


;= WBG 


SEC 4 tJOO 


■ G 5 = 


«G 


S KCU WO 


F A3= 


• ' A 


3 ECU WO 


P 63 = 


?u 


SEC 4 <2)0 


HLA5 


;-MLA 


S ECU 12*0 


H L ns 


= If L B 


S E*: i 1200 


S 1 0 J 


-CIS 


3 EC 4 Pb ) 


CG«3 


! ~ C G T 


s sc u mo 


CL.TJ 


i-CL.1 


SEC 4 J > .3 0 


vice 


"A- V I Gfl 


SEC 4 12 3 0 


V I L.T 


;S = V IL.n 


see 4 < no 


HKG:iS=7KGfl 


3 EC 4 J no 


bets 


;= ? EM 


s ecu i no 


COTS 


;-co 


sec 4 i no 


HTS= 


:fr* 


3 r.r 4 j 1 4 0 


V 03- 


YO 


S EC 4 i ISO 


40.13 


wot 


S ECU j 3 NO 


T H03 


: = ?fio 


S ?C 4 J 170 


DSLOS= n ELO 


SEC 4 PRO 


DL30S- 0 C.L30 


3 ECU j no 


roo.i 


IS- R 0 E LOH 


3 EC 4 1400 


CFCCIS-CFCrt 


3 ECU 14 10 


T-OflS=TWCS 


3 EC 4 1420 


V 2DS 


;-vso 


3 ECU 34 30 
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30 

140 

16 1 

500 

110 

9230 

9232 

9241 



YI5=YI 

v i rs = j t n 

THia = ?!l I 
DELI5*DEtI 
D LS IS- D H IS I 

rdi;w=rdelm 
CFI’ 4 .5 = C?r« 
HId~ = TW Ifl 
GO TO 62 
KSTa7=30 
RETURN 
HS T-T- 140 
RETURN 
NST)1T = 1 6 1 
RETURN 
SDIAG* 1 



CALL OnTFUT(NNN,L?GCT, GG£C) 

ngt*t - 1 10 



RETD PH 

FOP3AT ( 1 HO ,7 X, 14 H NOS POSITIVE VG) 

POST AT ( 1H0,7 X, 14 M NO H T03I T T V E V L) 

FORMAT ( 1 H0,7X, 11 rf'itT, ATI V E RI) 

2ND 

SUBROUTINE SECTS 

COrJICH TZ7.ZA Y 
0 I H E NO 1 0 N 7Z ZZ A Y (112 0 3) 

THK A0DVE CO^.TON BLOCK ”OIi S US FOOT! *i FS TABLE AND INTRP 
IT flUST ? F THE FUST CONDON RT, OCR 



5 2C4 3440 
0 EC 4 14 SO 
SEC 4 14*0 
SFCU 14 70 
SEC 4 14 HO 
S EC 4 14‘IQ 
SEC 4 IS JO 
SEC U IS 1 0 
S EC 4 JS 2 0 
SEC4 1S10 
3EC4 1^4 0 

S ECU 3SS0 
S ECU 3SnO 
S EC 4 3S7 J 
5 EC 4 3S80 
SSC4 1590 
5 EC 4 16 00 
SEC4 16 10 
S EC 4 3*20 
S ECU 16 10 
SEC 4 J 6 '4 0 

5 ECU 1*,SO 

6 EC J JS60 
SECS 9010 
SECS JO ?0 
SECS 0 0 10 
SECS JO* J 

c;s oo*o 



c o.f non 


A 


, ABAS 


t 


;la>i 


ALPHA a 


A LPHA 


, ALPH3B , 


SECS 0070 


i 


ALPHS 


, a a 


9 


ap , 


AS 


a : 


. P.A . 


SECS 0 )90 


2 


BE 


, 8 STAB 


9 


LLTAM8 , 


HFTA 


P ETAS 


, 3" , 


DECS )G r O 


3 


C 


, ci 


9 


C AG 1 , 


CAG3B 


: a •: 


, C A L 3 a , 


s e :s j 1 9o 


4 C3G1 


, CAL 


, CASE 


9 


CBG.-3 , 


CbG 


C J L M ;i 


, CR L 


SEC* ) 1 1 J 


COM ,105 


cn^s 


, CD? 


9 


CP 


cri3 


CPI is 


, (> ;m # 


SE'-S J 1 2 0 


6 


cr > *.3 


, CGHD 


9 


CG- 


cr, - z 


CI.V J 


, CL 3 


SC’S ) 1 10 


7 


cl.v; 


, C 3 A J Z 




o 


D2 


r. a 


, LATE , 


SEES ) ) -0 


a 


DU 


, pelt a 




DEL I 


CELTS 


D E ' 0.3 


, DM) 


G^CSOIS J 


9 


DFLOS 


, DELS I 


9 


DEL CO t 


or ir v. 


PELT 


, CL/2 


SECS )1*0 


conacN 


DC 1 AG 3 


, OK 3 A G 


9 


DE-1BG3 r 


crv.uG 


j r **i t . a 


# DINT 


SECS M7 0 


i 


DLS IS 


, 3 ISOS 


9 


DO 


nr i 


o ? 


, U-AY , 


g n ^o 


2 


bi’l 


, [)RG 


9 


DS , 


DS 1 


D 3 A V ? 


, JSL 1.3 , 


sees 1190 


3 


DEV. AX 


, J31IH 


9 


USA Af1 , 


PS. Y 


JS • ES 1 


, u.;mj2 ; 


SECS •? JO 


4 


DSP ES 


, DS 


9 


D E X 1 


Dr>2 


u r g i 


, :)7;a 


SECS j 2 1 J 


COfiSOK 


O'-S 


, DTMI 


9 


:0 Tli 0 , 


DT LI 


DT LB 


, i?L 


G E^S A jdo 


6 


DT 


, DV65Q 


9 


DVG3Q , 


DVL3Q 


9X 


, PY1 


SF. ;s .2 U 


7 


dyd 


, E 3 


, 


EDS 


E^ASB 


• M *. G 


, E M *GB # 


SECS ,24 J 


8 


T j* 


, Eii’.D 


9 


P VG - 


E v SS 


f-I.D 


" « L A 


3F ' r j 3 2 so 


9 


zrL 


, C .3LG 


t 


•7 NJ-' 


ESO 


"LZ^P 


, ?UX 


SECS i 2i>0 


connos 


H 


, IIJI 


9 


I'KAG ' 


v ;< bu 


H * 0 3 1 


, :1KG32 , 


S F - S )270 


1 


HKG 3 


, UK 'Cl S 


9 


HI. A 1 


H r. A 3 


i LA 


, !:I. AG , 


SCCS )?H-) 


2 


HLO 1 


, HLJ3 


9 


a LB 


HT.dS 


fl 3 


, n r s 


r»F'* S )2'M 


3 


HO 3 E 


, HT 


* 


I AC V 


I ■" L* 


TBLX 


, r B4 


sees 33)9 


4 


ISM 


, I NT 




[SET 


I ZERO 


< 


# K 1 


s c JS ) no 


CO 3 SON 


K2 


, K AP 


* 


KDSCT , 


KDS 


s L 


/ y< i 


SECS } 120 


6 


KR 


, KTBCT 


§ 


KTP 


KXP1 


X »» 




5 E"5 A no 


7 


LI 


, L 2 




J, C T 1 


LCT2 


LL 


^ L' 1 OCT ^ 


Sees 0 14 0 


B 


LS* 


, 3DU 




3 Fro 


" r ? 


3 GEO 


, *3 


SECS •} 1 c 0 


9 M 


, top 


, * T .IT 


9 


N AC v , 


NU 


NCL.< 


, ncts 


5 EC S > 3 • i • ) 


coaflow 


snt AG 


, S DS 




N6G 


NT J 


N IG 


, n lg r , 


G EC VjPJ 


i 


NN,\ 


, N R 




NMDS , 


;« N N 


*r »| f* 


, V N f 


S CCS ) 1>- ') 


2 


N NS 00 


, h ti 30 


t 


N NS - 


N*p 


N'SO 


, 1 >S . 


S C CS J 3°0 


3 


p 


, r io 


9 


P 11 


PA 3 


pa 3 a 


, L A , 


SECS 04 C-J 


4 


PAJ 


, ? B J 


f 


par. 5 


PRvJB 


P BO 


, P B 


SECS ) 4 1 o 


COflHON 


PBS 


, PHIA3 


f 


PHI BA , 


PM I 


PINT 


, PL , 


sees 0 4 2 0 


6 


PL1 


, DO 


t 


PS # 


PT 


D 


, p r d , 


5F.es )4 10 


7 


R 1 


, RA 




HAS 


RAXO 


R AX 


, HJ 


S ECS 34 u 0 


8 


PC 


, F DELIS 


9 


RDEL03 , 


PDI.03 


? DO S 


, REr , 


sees jus o 


9 


HE3 


, REIS 


9 


RESLI3 , 


REED 


3 EC /. 


, R HOG 3 


SECS J4*0 


cochom 


BHOG 


, moos 




P HO L B # 


a MOL a 


,\ ,10 L 


, Grt.DLS , 


SECS 04 7Q 


i 


RI3 


, HI 




R "! , 


ROAL E 


^ 0 A L 


, ROJL3 


SECS 04 9 o 


2 


30BL 


, son 


9 


ao 


a 


RSLin 


, RS , 


3ZC 5 0490 


3 


BVB 


, RV 


t 


a vs , 


s 


S 1 


, S2 , 


S ECS JSUO 
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4 


S3 


# 


S 4 


, S A 


, SB 


, SGN 


, sr; 


COMflON 


s :g s 


t 


SI IN 


, S1.I1 


, 39 J2 


, S1LC 


, SILO 


6 


S1L2 


t 


5 9LP 


, S.1LG 


, 51 


, 5 00 1 


, SOT2 


7 


SOP 


t 


SO 


, SOS .1 


, SS 


> E 1 


, GEO 


9 


T 


t 


T9 


, re :; ay 


, T 9 ft A Y 1 


, roc 3 


, TGI 


9 


TG 


t 


TGS 


, th r i 


, TH 10 


, r m i 


, THIS 


COflflON 


THDfl 




THOO 


, THU 


, T M OS 


, r k 


, tk r 


1 


TT..1B 




T L^ 


, TL 


, TLo 


, rsr 


, "4 T9 


2 


T*I IS 


t 


T n OM 


, two ns 


, V 1 


, 7 2 


, V \n 


3 


V DO 


, 


Y9D3 


, vrr« 


, V BIS 0 


, V 9 


, VBSQ 


4 


V9S 


, 


VGO 


, V G 


, VGJQ 


, VC*?. 


, V I A G 


connoii 


7 1 A LB 


* 


V IAL 


, V IB G 


, V T i3L 9 


, VIPL 


, V I 9 


6 


7ir,;is 




V r Lt3 


, 7ILH 


, VILI1S 


, v LI 


, VLJ 


7 


VL 


t 


VL39 


, VL5 


, VS 


, vss 


, VAGI) 


9 


■ AG 


t 


WAGS 


, UAL 


, WBG3 


, wjr. 


, - dGS 


9 


-PL 


t 


-GO 


, WG 


, WGS 


, -T- 


, Wins 


COMMON 


W<M 


t 


W 0 13 


, X 


, X 10 


, XII 


, XCLK 


1 


X I N T 


, 


X ? 


, xs 


, IX 


, X X A 


, 71 


2 


Y IS 


, 


YO 


, YOS 


, ZZZ 


, N ST IT 





DIMENSION PL (10) 

D19EUSICI, N 03 RY (7*>) 

DlfiEI.S ION DATE (5) .CASS (3) ,QID(8) , XP ( 2,75), PL1M0) , 

C (fc) ,A P (2, 7$) { \Ji A (8) , 0 SR AT ( 100 ) , DSRAY1 (100) , TER AT (100) , ' 



... (2,75) . . 

2 1 (100) , I) PAX (75) - r IT( 1H) .rtlN'rm 
EJUIVALESCS (Wbr.AYf 1) ,DRAY (1)) 
IP (NSriT-70) 1,70,2 

1 CALL OM M P 

2 IP (NST9?- 100) 1 .100. 3 

3 IP (NST 97- 1430) 1400, 1 

*****«*«*«***** >;7J T KM K 



STATEMENT NO. 70 



OLLTA S 17 EH AT ION ftOUTINE. 



7 0 CONTI SUE 
NST1T-9999 
16004 CONTINUE 

IF {3*75 1)2 50 70, 25 Oh 0,2 5070 
25060 CONTINUE 
S« I.OE-o 

C FOLLOWING STATEMENT SIMPLIFIED BT UMIVAC. 

C SO = -1Is;« (1.0 ,DP*ZZZ) ... PTC. 

25070 CONTINUE 

IF (90*1 2470, 2399, 2470 
2470 CONTINUE 

051 IN = 1 . CE-6-2.0* jS» (1.0^3) /*) 

ObP.AX=1 . C*B- 1 . 0F.-6 
D3LI,1=nu«IN 
IF [Vi) 3000,301 0,301 0 
3000 CONTINUE 

DSLT * = 95 MAX 
3010 CONTINUE 
I J H - 1 
51=0.0 
GO TO lhCOO 
3 030 CONTINUE 
IJH=2 
3F50=50S • 
si.n=5« 

5UJ1 =GO 
S M = 03 L I 9 
GO T n 16000 
3031 CONTINUE 

?5Lir.= S0S1 
3.102 = 31 
SOJ2=GO 

I ? (PESO * PSLI 1) J0 Q Q, 3 06 0, 306 0 
3060 CONTINUE 



WHITE (6.3061) 
TO jo$0 



GO . 

3071 CONTINUE 
3ESZ=SOS« 



DSU 3, DP 



SECS J510 
5 EC 5 75 20 
5 775 0510 
SEC 5 05 tO 

s rsosso 

a EC 5 05**0 
SECS 057 0 
SEC 5 jS-n 
S ECS US70 
SEC 5 7*, 0 0 
SEC 5 Ob 1 3 
SECS 06 7 0 
S EC 5 06 7 0 
SECS .)64 0 
SECS )4 5 0 
f EC 5 'bSQ 
S^CS )b 7 0 
S E r 5 

S EC 5 0 n o 0 
S E ' 5 0 7 0 0 
SCC5 07 10 
SEC50720 
Q3AYSEC5 07)0 
SE^s ) 7 u 0 
3 E~5 HSJ 
S EC 5 J 76 0 
3 EC 5 ) 77 7 
SECS J7n0 
SECS 0700 



SECS J010 
5 ECS OO’X) 
SECS j ‘)\0 
SECS > O; i0 
SETS OS60 

SEES ' >6 0 

SECS jU7 0 

ssr r ' r->^ 
SECS JO^o 
SECS 107 0 
SECS 1010 
5 EC 5 1020 
sir's ion 
SECS 1 >.ij 
5 EC 5 1 75 0 

ss :s 10**0 
SECS n7 0 
SETS 1 JSO 
SECS lO'^O 
SE'^5 U00 
SECS 1110 
SECS 1120 
S ECS 1 1 3 0 
SECS 1 14 0 
SECS 1150 
SECS 1 1*0 
SECS 1 170 
SECS 1180 
SECS 1190 
3 EC 5 1200 
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nnnnn non non 



$ZC=SO 

SZK=SI1 

H0PE^RESC*RS5Z 
IF (HOP?) 3080,3085,3085 
3 080 CDVTTNUE 

BSLIV FESZ 
D3i.r *>=zzn 
3UJ2=GZO 
GO TO 1090 
3 085 CONTIS 0 2 
9 2Sfl=?ESZ 

srunsza 

30J1=SS0 
3090 CONTINUE 

sa=(sr.j i ♦dsl i n ) / 2 . o 
I J H= 3 

16000 COSTISHE 

I P (ABS (SF) -S«IN) 1390,1390, 1391 

1390 CONTINUE 
S.1»-JIGN (SIT N,DP) 

1391 Ai = 1.9* (8*SS) / (I.OR) 

B 1 = 1 . 3 - 3!*/ (1 . 0 ♦ H > 

DVBS0* (- V 1 /AS)- (V2/B8) 

10SSv' = V oSO^DVBSO/2. 0 

'4 3 I T E DIAGNOSTIC l? 7Drt NOM- POSI TI V E. 

IF (VBF59) 1250, 1250, 125 1 
1250 CO NT I N U E 

4RI3E ( b , 4 2S 0 ) Sfl,AS,BH, 71,72, ?BSQ,D VBS0 ,R,VmSQ 
Ll= 1 8 

GO TO 1482 
COM PUT E v Efl 



• ••***«***♦• *«* 



'JO. HO 



OPTI-U* 5,1 IS TO QF 1S£0. 

80 IP (RP^-. 161 1) 1380, 1 3H0, 1 381 
cnp=l. 9 



1330 COP- I . 0 

GO TO 1334 
I F (Rr 4 709. 



1381 
1 392 



709. ) 1 39 2 , 1 382 , 1383 

C2P= 1. 1 1 37 ♦. s 6 3 34* ( A LUG (RES) ) ♦ .004 12 9* ( ( A LOG (HSfl) ) ««2) 



1 38 3 
1384 



GO TO 13 84 
CD P s 2 . 9 

S .1 LC = ( C 1 ♦ (m ** 2} ■ /( V3?30*CD ) 
snLa=(?ncL*(ri*-2M / mho g* (aV**?i ) 

5«L2= l ( P H')L* (J ?!***) > / ( P:iOG*Aft* (1. O^R ) ) ) ♦ 

] ( F * ri ) /I i . npj ) - 1.0 
saiF-Sikc* (( (J.o*h«)/ (?*B nu ♦i.O) >i. o 
D-1 TO D JliH 8/19/66 

ZZZ=SF. LF*S.1LG*S8*S* LT*COP 
SO = -SIGN (1 .0,D?*IZZ) 

C2 ~ 2 • 0*S'1LG*SflLD 
C2 =■ Sfl LC*ZZ7/C2 
IF (C2-LT.J.3) C2=A3S(C2) 



3 2C5 
SECS 
SEC 5 
SEC^ 
C ECS 
SETS 

sees 

S EOS 
S EC 5 
S EC 5 
S2C5 
SE05 
SE r 5 
SEC 5 
SECS 
SEC 5 
S ECS 
SECS 
SICS 
SECS 
SECS 
SECS 
5 EC 5 

S FT 5 

secs 
s SC 5 
sees 
sees 

S ECS 

SECS 
SEC'S 
3 £ r 5 



1251 


vsn^.nsr <vr”iso) 


SECS 15*3 0 




SI'-9 1 *v r **\ 3G (LM) 


SECS 15 70 




Ir (He-- . COOOO 1) 1259, 1253, 1 259 


SECS IS J 0 


1258 


CD r 2 . 4 C 3 7 


SEC’S IS 40 




GO TO 7 1 


SECS M3 ) 


1259 


IF (F-"-0. 1) 1260. 1 2s 9 , 1 2b 3 


G EC 5 1t> J 0 


1 7b 3 


IF iPE“- 2 0000 . ) U6 1 , 1264, 1264 


scr r is >o 


1264 


CU=9. 45b9 


SECS 16 JO 




GO TO 7 1 


secs i (, a a 


125 0 


CC-24 . 0 /REH 


SECS M5 0 




GO r~ 7 1 


SECS MS ) 


126 1 


CD = EX? ( 9.271 -O.ri 8 93* (A LOG ( 3 IS ) +0. 93 4 17* 


SECS M '9 




1 ( { AL ) I (9EJ1) ) ** 2) ♦.OO f4u ] * ( (A LOG (RE1) ) **3) ) 


SECS It, ‘»o 


71 


CONTI.C! E 


SECS M JO 



*S ECS 
S £ C D 



s .• . _5 
Sc.’S 
SL..-S 
S L'* i 
S ECS 
S E r *S 
SECS 
SECS 
SEC 5 



ores 

sees 

sees 

3 225 
S2C5 



210 
220 
2 10 
24.) 

25 0 
2 b 0 
27 ) 
2 b 9 
290 

no 
no 
no 
3 } 0 
94 0 

3 SO 
3^3 
no 
no 

3“0 

4 00 

4 1() 

420 

43 3 

44 0 

aSO 

4 0 3 

470 
4° 3 
4»0 
50 0 
S10 

5 70 
S 10 
54 0 



no 

710 
720 
79 3 
740 
750 

7> J 
773 

7,0 

7 9 0 

8 0 3 
8 1 0 
8?9 
rtiO 

HU() 
15 0 
90 0 
97 0 
3.9 0 
3»0 
39 2 
894 
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C 2 = C 2* *0 . 33333 


SECS 1896 




SO - SO • C2 


SF.CS 18<>8 




SOSB = 3C-SN 


SETS 1900 


9 1 


IP (ATS (SC- 5.1) -ESO) 1481,1481, 14 62 


S EC 6 1910 


1481 


N I Safi V 50 


SETS 1970 




NNSO-9 


SZ'-G 1913 




REWIND 16 






GO TO 82 


SECS 1 950 


C* • • * 1 


•••••THTS IS TO BYPASS ITERATION COUNTER DURING PLOTTING IJH = 4 


SECS 198 3 


1402 


CONTINUE 


SEC 5 190 0 


11482 


N N SO = NNSO + 1 


SS'*5 194 0 


16060 


IF (NNSO-NSO) 1403,1483,1490 


3EC5 990 0 


C 




SEC 5 20 1 3 


C STOSS THIS VALUE OF D5 1 AND WAITS DS 1 ARRAY IF FULL. 


S E<*5 23 90 


C 




SEC5 29 <0 


1483 


CONTIN ue 


3 EC5 2040 


C***«****CEE UGCING AID FOR DINAR! CUT CON V FHG2NCE 


3 EC 5 205 0 




D SPA Y (FDS) =2 22222222. 


S P TS 20*0 




DSrAY ( < D3 ♦ 1) - 3 " J 1 


SECS 7070 




DSRAY ( K D S * 2) = SCJ1 


SECS 7 0 So 




DSRAY (KDS«- 3) = PTSO 


SECS 2‘^Q 




DSRAY (Vf>S»4) - SN 


SECS 7130 




D 3 F A Y ( K D F ♦ S) = 3 0 


SECS ^119 




DSF-AY [ D S ♦ 6) = SCSI 


SECS 2 120 




DSP AY (K DS* 7) = DbLII 


SECS 2 130 




D5?AY(KDS»8) = SGJ2 


SETS >14 3 




DSRAY (EDS*9) - R5LI1 


S ECS 7 15 0 




K DS = KDS ♦ 10 


SECS 2 M>0 




IF {KDS - 100) 16003, 16003,1484 


SECS 2 170 


1484 


WRIT- (16) DSRAY 


sr.cs 2 iso 




KDSC~=< D5CT* 1 


3 ECS 2 1 ’ 1 0 




DO 1u0b 1= 1, 100 


SE^S >970 




DSRAY (I) =0-0 


3 ECS 2210 


I486 


CO Nil NO E 


SETS 2 22 0 




K D S= 1 


SE~5 >210 


16003 


CONTINUE 


SECS 274 0 




GO in ( J030. 1931 ,1071) ,IJH 


7 rr, i ’ >5 0 


C*** ••END >P BINARY CUT CONVERGENCE ROUTINE 


S ECS > J 


C 




3 ECS 2 27 0 


C NO CGNVERGrNCS ON DS - PRINT DIAGNOSTIC AND (1° T ALL 


GETS >210 


C 


Pisvrous VALUES O p 03 PROfl TAPE IS AND TEMPORARY STORAGE IN 


SECS >29 0 


C 


DSRAf. PH TNT THErt ANDEXIT TO DIAGNOSTIC ROUTINE. 


SECS 2 300 


c 




SECS 2 J 10 


1490 


REWIND 16 






N ST*7= 9 9 99 






WRITE (6/1490) 


SECS 214 0 


1491 


I? (KDCCT) 149 3 , 1493, 149 2 


SECS 7 3SO 


1492 


READ (1h) D3 RATI 


SECS > \h j 




WHIT? (6,^491) (DSRAT1 ( r ) ,1* 1, 100) 


SECS 2 173 




A DSCT= K DSCT- 1 


SECS 7 3 4Q 




GO TO 1491 


SECS >JK) 


1493 


WPIT? (6,949 1) (DSRAY(I) ,1=1, KDS) 


SECS >4 0 0 




kd: = i 


•*. ECS 24 1 0 




K D EC T = 0 


SECS 2473 




DO 1495 1=1. 100 






D3P.AY (T) =0.3 


SECS 74 4 0 


1495 


CONTI N U 5 


SEC 5 7950 




L L = 1 9 


3ECS24S0 




REWIND 16 






GO TO 530 


SECS 24 8 0 


C 




SECS 4 r * 0 


C OPTIMIZE DS AND DX . 


SECS 7500 


C 




SECS 2^ 10 


82 


IF (flFPO- 1) 23 82,2 381 , 23 82 


S ECS 2 S 70 


2381 


DS=0 . 0 


SECS ^5 30 




s=so 


SECS 25 4 0 




.1fPO=0 


5 ECS 25 SO 




GO TO 93 


3 ECS 7560 


2 382 


OS =50- SOP 


SECS >573 


83 


50?=S0 


SECS ? S 4 0 




DX= (0/ (0 .75* RHOG • AB5 (Sft) *Sfl*CD *VRflSQ ) ) 


SECS 2540 




1 * (4633.04 *DP+ ( ( (B»**2) *RUOL*DV3SQ) /2 . 3) 


SEC5 2b00 
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no nnnn noon non 



2 ♦ ( (PM *3 HOL* 7 bn SQ) / (I. O^R) ) * ( ( (2 . 0*S«*Dr) / ( 1 . 0 * R) ) -D$) ) 

100 DS1-r>S 

N STMT* 9 9 99 
VS'JQ-VBSC*DVBSQ 
IF f VT F? S Q 1 J00. 300,301 

300 * B I? E (6,9 300) 

LL=1 9 

GO TO 500 

STORE *♦ 0 POINT QUA VII TIES FOB NEXT END-POINT, 

301 EM LM*EM L 
RHCLM=RHCL 
DELTN=TG-TL 
VL M=3M* 7 P3 
HLAF=HLA 
HLEM=HLB 

R a=R 

DETERMINE RBAT TRANSFER COEFFICIENT. 

cunt r uncus at junctions. 

IF <R EM- 1.0) 3 oa ,304, 905 
30 U H a - ( 2 '4 . 0 ♦ f| KG a ) / D 
GO TO 303 

305 IF (BET- 2 5. 0> 306,306, 307 

306 H 21*3*0 0. *C3rt*' J HO.;* (APS (SMI) *V9M* 

1 ( (2. 2/S SI) ♦ (.Ud/ (SORT (P SN)) ) ) 

GO TO lOB 



S EG N E N T S ARE NOT 



1 



307 HH=(4.44*HK3M* (REM**.6))/D 

compute mean boundary-la yer parameters for circular nozzle 
OR OUTER HALL of annular nozzle. 

308 THOM =1 ff 0 ♦DT:m/2. 6 
D F LON* 1 0 .236 * T HO 1 

FCrLON * ( JO 3. *PHOl*V L*fl ELQF ) /VI I.N 
IF (PDF L 7 «. LT. 0.0) R DELOf1 = A 3S (R DELON) 

" ► . 42 5) * *2 . 5HU) 



309 



C FOF ~ . 2 0 8/ ( ( A LOG 1 0 (ROE LOfl) ♦ . 
IF (MGZO) 399, 30 . 309 
Tfl IN =T H I *079 1/2.0 



D ELIN = 19 .286 ♦THIN 
P DELINK / 300. • P HOL*VL*r) EL IN) / VI LM 
CFIT=.20 8/((ALQG10(R0ELIM> ♦. 42 5) **2 . 58 4) 

30 NS0MT*30 
a ETURN 

2399 !,S7*T = 2199 
RETURN 
500 V C I AG- 1 

CALL O UT PUT ( HNN, LPGCT, NG SO) 

N3-rrr«no 

y ptups 

9250 FO«FA? 1 H0,7x, 15.HNONPOSITI VF. 7EF/(lH , OX , 1 P6 FI 5 . 6 ) ) 
9 300 FORMAT 1 H3, 7 X, lay NON POSITIVE VC) 

9490 FORMAT 1 HO , 7 X , 24 HCO U ID NOT CONVERGE ON Do,//) 

9491 FOR FA? 1H , 1 P 1 Og 1 3. 4) 

3061 FOKNAT M HO, 38H LIKF SIGN RESIDUES IN INTERVAL 3 TO 
1 9 H FOR Op = , E 15.4) 

END 

SUBROUTINE SECT6 

COMMON T2ZZAY 
DIMENSION TZZZAT (11 203) 

THE ADOVE COMMON BLOCK FOR SUP ROUTINES TA3L 



, 1PE12.4, 



AND IN7RF 



SECS ^6 10 
SECS 2620 
SEC 5 26)0 
SECS 264 0 
SFC5 2650 
S EC 5 26 *> 0 
SECS 767 0 
SECS 26 9 0 
SECS 2h°0 
SEC r > 27 30 
SECS 2710 
SECS 2720 
SECS 27 10 
SECS >740 
SEC 5 7 75 0 
SECS 27*0 
SECS >773 
SECS >73 0 
SECS 273 3 
SECS 28 30 
SECS 73 10 
SECS >873 
5 CCS 2 9 13 
SECS >94 0 
SE~5 2HS 0 
S E r 5 ”>8,, ) 
SECS 7 67 0 
SECS 2P 60 
sees 79 n 

S EC 5 79 90 
SE^S 2 HO 
S3 :s 28^0 
SECS >9 10 
SE *S >9-.0 
sees >c ) ,3 
sees 2 96 3 

SECS 2 97 0 

SECS 29 9 0 
SECS 299i) 
SE~5 103 0 
sees 10 1 0 

SETS (020 
SEP'S 10 10 
SECS 10a 0 
SECS 1 ISO 
G EC S 136 3 
SECS 10 70 
SETS 6,' ,0 
3 EC 5 )8.* 0 
SECS 11 10 

secs mo 
SEC s i 1 10 
SEC* 114Q 
SECS 1 ISO 
S EC6 1 1 n 0 
SECS ) 1 70 
3 ECS (HO 

se:s ) i j o 

SEC 6 5010 
SECS )0 70 
3EC6 3010 
S ECo 0)50 



common 


A 




A BAR 


9 


A LA n , 


A L ? H AB 




A L? U A 


, ALP HUB 




S FC‘i ) )7 0 


1 


ALP :is 




•\ 8 


0 


A P 


AS 




AT 


, 6 A 


, 


S EC 6 3 38 0 


2 


33 




DETAB 


0 


BET AM 3 , 


BETA 




BETAS 


, BN 


0 


S EC 6 '06 0 


3 


c 


, 


Cl 


0 


CAG 1 


cagfb 


0 


CAG 


, CALM 3 


0 


S EC 6 J IwO 


4 CBG1 


, CAL 


0 


CASE 


0 


C3GM3 , 


CI1G 


0 


C3L.N0 


, CDL 




3 EC 6 0 1 10 


COMtfON 


CDF. 3 


0 


CD? 


0 


CD 


cp in 


0 


c ? r ns 


, cfo a 


, 


SECS 3 1 2 0 


6 


CFO NS 




CGHB 


0 


CGM 


CG NS 




CLN 3 


, CLN 




SECS 01 10 


7 


CLMS 


0 


esAve 


0 


D 


D2 


0 


0 A 


, DATE 


0 


SeCo J 140 
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noon 



8 


DD 


, DELIA 


, DELI 


DP M3 


, DPLOil 


, PEL-7 


9 


SECr, 7 iso 


9 


DELOS 


, DELS I 


, D EL 50 


Dr L.-1 


, DEL? 


, DELV2 




5 EC 8 9 16Q 


connos 


DEI AG B 


, DE1AG 


, DE.10G3 


DEI DG 


, D E 103 


, DINT 




SEC* 0 170 


i 


DL» IS 


, DL50S 


, DO 


DPI 


, DP 


, DhA Y 




5EC601H0 


2 


Dpr 


, 0P.0 


, b R 


DS 1 


, D 3 A V E 


, D 5 L 1 1 




S EC h 1190 


J 


DJI \ X 


, n sun 


, DSR ATI 


0” r'A Y 


, 0 5 PC. 01 


, DS.* ES 2 




SECf. 1200 


4 


DSR ES 


, DS 


, DSX 1 


DSX2 


, D i 5 1 


, DTO B 




S SCO 02 10 


COflflON 


DTG 


, D7HI 


, DTIIO 


nr Li 


, D T L 3 


, D? L 




SECb 1220 


6 


DT 


, DVHSQ 


, DVGSO 


I) V LS Q 


, OX 


, :.yi 




J ECO 12 <0 


7 


DY3 


, ?b 


, EDS 


Z * AO 3 


, Eis<; 


, 5 ^ 3 G B 




5 EC 6 v)2uO 


8 


i n 30 


, Evir,3 


, E*G 


i"' S 


, El LB 


, t?l 1 




SEC'* 9 250 


9 


EKL 


, EflLJ 


- E 1 ■" 


ESO 


# '’LEE? 


, FHX 




SECo J2 f '0 


COflflON 


H 


, HJI 


, H KA G 


H is BO 


, ’IKG11 


, 11 KG .1 2 




S ECO 9770 


1 


HK3 fl 


, HKG.NS 


, H LA 1 


III.A1 


, H L A 


, ML A 5 




S ECO J 2 9 0 


2 


HL3 1 


, H L3P5 


, H LU 


HL PS 


, HI 


, HIS 




SCCO >250 


3 


HOPE 


, HT 


, I ACV 


IDLJ 


, t 3 LX 


, my 




SCCOO MO 


4 


IJH 


, I NT 


, rsiT 


IZERO 


# K 


# K 1 




3 EC P 0 i 1 0 


COflHON 


K2 


, KA? 


, K DS CT 


K no 


- 7 L 


, PR 1 




S ECO 0 320 


6 


K R 


, K T DC T 


, KT3 


KXP1 


, -KXP 


- L 


$ 


S ECO ) i 10 


7 


LI 


, 12 


, Lcr i 


LCT2 


# LL 


, LPGC? 


9 


SECS J j 4 0 


9 


LSrf 


, .1 BO 


, i ? r o 


^ Fp 


, SGP.O 


11 




5 EC f. >330 


9 N 


, .10? 


, iT:rr 


, N AC V 


N 3 


, N C LK 


, NCT5 




J EC(> ) i'*0 


COflHON 


NDI AG 


, M DS 


t N 00 


NTB 


, N IS 


, N LS T 




5 ECb J 170 


1 


I* NA 


, NNO 


, N N D S 


NN A 


, 'i s 0 


# N N 




5 ECO 0 MO 


2 


NNSOO 


, ::nso 


, N NS 


K? 


, NSC 


, NS 




S SCb 1 190 


3 


P 


, pio 


- P 1 1 


PAB 


, r* A 1 3 


, L A 




s?ru 1400 


a 


PAS 


, P 6 3 


, PB.1B 


?i!s)3 


, •'J»» 


# P3 




S EC 3 J 4 IQ 


COflHON 


PE3 


, PH [A 3 


, P HT DA 


PHI 


, PINT 


0 el 




5 EC ^ l'i 2 9 


6 


PL1 


, PO 


, PS 


PT 


, ) 


, ‘J 1 1) 




5 ECO ) j n 


7 


ni 


, PA 


. K AS 


RAXO 


, u A 7 


- H J 




SEC 1 14 4 0 


8 


RC 


, ? DELIA 


, PPLL01 


REMS 


, lDv)**S 


r> v p* 




5r.ro 1450 


9 


P V H 


!) ? MCJ 


, RESLT.1 


RE50 


R 2*0 5 


' PHJOB 




5 PC 0 5 M 3 


connos 


r >tiOC, 


’’iioos 


, HH0L3 


RMOLfl 


* °HOL 


, 'ilIILS 




5 EC r* 04 J 0 


1 


mi 


, R I 


, SI 


SO AL 3 


f t<<) A L 


, R0JL3 




SECS 04 90 


2 


R03L 


, ROM 


- R 0 


? 


, -SLIM 


, °s 




5 EC 6 ?4 > 0 


3 


P VD 


, rtV 


, R VS 


S 


- • 1 


, 5 2 




SEC'* 08 CO 


4 


3 ^ 


- J 4 


, S A 


S3 


# 3i v 


- SI* 




SECP 0519 


COflHON 


513 J 


, 5.1 IN 


, 5 .85 1 


51 J2 


, r 1 L C 


, M LD 




SEC6 os:o 


6 


SILc 


t 5 fl LP 


, J.1LG 


c* m 


# 5 051 


f 505 2 




CLCD vS >0 


7 


SOP 


, 5 0 


, son 


S5 


, 5 7.1 


, SCO 




S ECO ) 6 <4 0 


0 


7 


- :d 


, 73r\Y 


T 5 1- A Y 1 


r o « (j 


, ’*Gr 




SCC8 1850 


9 


TO 


, TO 5 


, THIfl 


THIO 


TUI 


, THIS 




SECS J5**0 


COflHON 


T«3 n 


, T MOO 


, THO 


TriOS 


, r k 


, tk: 




SECS 9870 


1 


Ti.m 


, T LO 


- TL 


^ L5 


, tot 


, TWM 




SECS 05 90 


2 


r » 1 1 s 


, r - or 


, T *0 ^S 


VI 


* v ? 


, V A i< 




SECS 18 )0 


3 


V BO 


, v 3 ns 


t V 58. 


V BIS 0 


, VD 


r V530 




SECS 18 00 


4 


V 55 


, vr;n 


# VO 


VO 53 


, / r; 5 


, via; 




see , m n 


COflflON 


VIA LB 


, VIAL 


, V IP G 


VIl>L 3 


, VIBL 


, VI 5.1 




SEC-* 5620 


6 


VISES 


, VIL3 


, VILA 


/T LIS 


, V L 1 


, V LO 




SECS t 610 


7 


VL 


, VLSO 


- VLS 


VS 


t V 5 5 


0 y A3 j 




5 ECs ■ I s 4 0 


8 


y ag 


, J A05 


, JAL 


J 8GB 


, w no 


, -30 3 




SECS. 1650 


9 


VBL 


, yc,p 


, n G 


vr.s 


, y i M 


, VI is 




S EC 6 Or) SO 


COflDON 


W01 


, wo*s 


r X 


X10 


, XII 


, XCLK 




SF.Cs 16 7 0 


1 


XIN7 


, XP 


, IS 


XX 


, XX A 


- Y I 




S EC 6 18 80 


2 


V IS 


, YO 


- YOS 


zzz 


, VST IT 






5 ECS jo 



r XPf 2,75) , ?L1 MO) , 

(130) , DSRAY1 (100) , T BRAY (100) 



DIMENSION c L (10) 

CHENS I C !I !J 32 AY (75) 

oi.'isssroii o\ rs (5v - cass (3) -Qro(fl) # 

1 C (6) ,A? (2, 75) XXA (S) ,DSR AY ( 

2 1 ( 100) , OFAY ( 75) . H T ( Id) , 3 I T f 8) 

EQU1V A L w KCE (SDr/.Y (1) , OR AY (1 ) ) 

If (N5T1T-140) 1, 140, 2 

1 CALL 9U.1F 

2 I F (NS7 IT-230 9) 1, *399,1 

C0.1PU7S BARRED QP A NT IT 1 7S AND I TER ATE 70R CONVERG cNCR ON T3. 
GET INTE 5 PC LAf ED PBC FROfl TABLE FOR TH 13 73 . 

mo 

NST.1T*9999 
339 NN=9 



CALL I NT 6P (PB03,N,TB,P) 



5EC8 ) 70 0 

s-'m )7n 

S EC 8 17 ; 3 
TBRAYSZC6 PJO 
SZC-> 0 740 
SECo 37 S3 
SECo ) 7 v3 
SZCP >77 0 
SEC'S 17 s 3 
SEE S 97 >3 
S ECO 'MOO 
EEC'S 08 13 
3 DCS J Q 2Q 
S ECG OH <3 
SEC.) 98 'JO 
SECS 0 8SQ 
SECS 0860 
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IP (N) 318,318,320 

318 L L -20 

319 WHITE (6 .931 H) HT(NN),T3,P 
GO TO So5 

COUPON 2 NT A. PRINT DIAGNOSTIC IP SUFFICIENTLY CLOSE TO ZEBO. 

320 IP (ABS (1.0-ii*PBOn)-.00 01) 321,3 21, 12 3 

321 WHITE (6,9320) 

L L =29 

GO TO 500 

COMPUTE PARTIAL PRESSURE OP COMPONENT K AN 0 B AND 
PRINT DIAGNOSTIC IP EITHER NO NPOSIT I ’/£• 

323 PAE~(P-PEOb)/(1.- IH * P30Q) } 

IF (PAD) 39, 322,322 

322 PBB = P-PAB 

IF (PBB) 312,0323, 9323 

INTERPOL AT F INTO MOLECULAR W EIGHT TABLES POB A AND 3 
AT THIS TEMPERATURE AND PRESSURE. 

9323 N= 3 
N N = 3 

CALL IMTPP fW AGB, N,TB,PAB) 

IF m 325,325 ,327 
325 LL = 22 

WRITE (6.9318) HT ( N N) , T9 , P A 8 
GO TO 500 
327 N - 4 
N N -4 

CALL INTFP (W UGB t fl,TB,PB3) 

IP IN) 32 3,323 , 330 
329 LL = 2 1 



writ* HT < NN > » t0 ' PB3 



310 WHITE (b,9J1Q) 

I L -2 9 
GO TO 500 
312 WRITE ( b , 9 3 1 2 ) 

LL = 2 1 
GO TO 5 00 

COB PUT R BEAN NOLPCULAB WEIGHT. 

330 WGB=( { W AGB*? A 3 ) ♦ ( WBG r* PB B) ) /P 

COMPUTE ALFHA AND BETA. 

ALtHAB= ( IWAL/WBL) *H*?AB) / 

1 ( 1 .CM( WAL/WBL) -1.0) * H* PA B) 

B ETAB= ( WEGFl* PBB)/ (WG3*P) 

CHECK DENOMINATOR OF EQUATION POB B \N C PRINT 
DIAGNOSTIC I? SUFFICIENTLY CLOSE TO ZERO. 

TK=(1.0- <1.9*RC) * AL PHA B) 

7 K 7= A 3 J ( 7 K) 

IF (TK7-. C09 1 ) 333,3 35, 335 

333 WRITE ( b , 933 3) 

LL = 24 
GO TO 500 

COMPUTE BARBED FLOW PARAMETERS. 



335 3B- (PC- f I.OfPC) *CETAB) /TK 
DEMGP- (EflT/( 1. 5* RE) ) - ENG 
2 MG D= T M G ♦ D EM G 3 
2ML3= R 3 * EMGd 

DEM AG 3= ( (EM3 B* WAG3* PAR)/ (WGE*P) ) - EM A G 
DENBG3- ( ( ENG B* WBGB* PBB) / (WG3*P ) ) - 3M BG 



5 EC6 0 970 
SSC608R0 
S EC 5 OrtHQ 
SEC 6 J q 9Q 
S EC 6 0 9 1 Q 
S*C6 )9 70 



o . i / ^ 4 j 

SEC 6 04*0 
SECS 'Ob') 
SETS 197Q 
SEC b J 990 
3*06 09 9Q 
S “Cb 1 G 0 0 
SZCb 1010 
S EC 6 102 0 
S EC 6 I" 10 
SECS 1U40 
S E r b 1 ISO 
SECTS UbO 
SEC 6 1070 
S PCS 1 OHO 
SECS 10‘ 1 0 
ZEC6 1199 

sccb i no 

SEC6 1120 
3FlCh 1 1 10 
s scb i no 

SECb 1 1*0 
SETb 1 1 b 0 

S ECO i 170 
3 2(0 1 1 W 
sECb i no 
S EC 0 12 J O 
S ECO 1210 
SETO 12^9 
S EC h 12 IQ 
^ ECb 1240 
S.TCb 1/-J 
3 mb 1 2^*0 
S':*'. 12 7J 
SECb 12 BO 
SEC 0 1240 
SET . 1 < * '. 0 
7 EC r> 13 10 
SZCb 1 3 20 
ssco i no 

SZTb 1 14 0 
SEJ5 1 150 
see. i no 

SC' V > 13 70 

2 EC » 1 i H 0 

s Eco i no 

S ECO 14 90 
* EC 0 14 1 0 
S ECO 14 20 
rcco i 4 io 
S ECO 1 4 4 0 
SZTO 1450 
Si/'O 1 4**0 
S EC b 14 70 
SET j 1430 
STCb 1U90 
SECo 1 5 CO 
sz;r, too 

3KC0 1*20 
Sr/CO 15.30 
S ECO 154 0 
SECb 1550 

3 EC 6 1 5n0 
3 ECb 1570 
3 EC 6 1580 
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EHAGP’HflAG+DEMACB 
E.M BGE = EH EG^OL.'I PSD 
DTGB=T3- TG 
TL^IJ- ( TL+TB) /2.0 
T G N U = (TG*T3)/2. ) 

PA«J= (PA*rA3) /2.0 
P3MB= (Pfi^BB) /2.0 

INTERPOLATE INTO SPECIFIC HEAT 
CA L * 9 
C3L ,» 9 
CAG * D 
CDGfia 



- 3 PEC IF T C HE AT - 

- SPFXTPTC HEAT - 

- SPECIFIC H p AT - 

- SPECIFIC HEAT - 



TABLES FOS 
LIQUID A 
LigurD s 
GAS A 
GAS a 



340 

341 



34 3 



N=S 

NN=5 

CALL TNTF? (CAL.13, N,TLflB, ? ) 

IF (N) 340 ,343 ,341 

WHITS (6,9130) HT (NN) ,TLMB,P 

GO TO 500 
N = 6 
N N=6 



CALL INTPP (C BLR3, N, TlrtD, P) 
I F jN) 340 , 340 ,343 

N N = 1 



34 4 
345 



346 
34 7 



CALL IVTF?(CAGBD,N,TG«D, PAD) 

IF (NJ. 3 44 ,344,3 43 

WHITE (6-3136) HT V) ,TGflD,PAB 
GO TO 500 
N = 2 
N N = 2 

CALL rNTFP (CDGHB, N, TGH3, PBD) 

IF (H|_ J 4 b , 346 ,347 

WRIT" (6-7136) HT (MN) ,TGan,?DD 
GO TO 50(5 



ALrltn B- ( ALPS A* ALP*.‘A o) /2. 0 
B ET Ai" ( Er.TA ♦PETAL) / J. 3 



CL.*iFj = ( A L Ft! 
TB - ; 1 



CG 
DTltJ = 



7 ♦CAL'"*) ♦ (1 - 0-ALPHM B) *CBL K3 
0- 6E7A ^b) ‘CAGES* BETA JIB * Cii O'* B 



• i .o/( r.ncLMM ) * ( (CGri3*0TGb) ♦ 

(V ESQ- 7G**i*^ ii* ( VBSQ-VL * * 2) ) /5 007 2 . 3 ) ♦ 
(DEHA1 3/SFGE) * f H LA *CAG* (TG-TL) * 



( ( D F M 51 3/EJ1GB) * 
( { DEr.GU/CflGB) * ( 



HL3*CBG* (TG-TL) 

; ( VC,** 2) - ( VL**2) j /50 072* 3) ) ) 



Is. 



TEST FOH CCNV2FGENCE ON 73. 



350 



IP ( ( A B S ( (TD-TL) -DTLD) ) - S3) 141, 141,350 
NNE=NNB* 1 

IF (V,B-NE) 35 1 , 351,354 



SAVE THIS VALUE OF TB FOR POSSIBLE NON -CONVERGENCE. 



351 

352 

353 



T3= ?L* DT LB 
T B HA Y ( < 1 F ) =ra 
KT E = Kl D ♦ 1 

IF (KTB - ICO) 1 40 140, 352 
WRITE (14) ? 3R A Y 

DO 333 1=1,100 
T2PA r (I) =0.0 
CONTINUE 
1 



KTFCT= KTECT* 1 
GO TO 140 



NO CONVERGENCE ON T3 AND ITERATION SAXTrtUIl REACHED. 
PRINT DIAGNOSTIC AMD ALL VALUES OF TB FOUND. 



SF.C6 1577 
SEC a 1b CO 
S EC 5 1M0 
SEC 5 1620 

ss:r, n io 

SECT, 1 u 0 
3EC6 165) 
SEC4 H,o0 
SEC6 1673 
SFCo 16»»0 
SEC6 1460 
SET'j H'O 
5 c C 4 17 10 
S SC 6 17 20 
SF~6 17^0 
SEC 6 1 74 7 
ST!) 1760 
SEC 4 1740 
SECo 17 70 
SEC 6 1740 
SEC 6 17 0 
SEC6 1 BOO 
SEC 4 1310 
SEC 6 1827 
SEC 6 10 3 3 
SEC 6 1 Hu 0 
SECo 1 4 60 
S EC 6 1 B 1 1 0 
5 EC b rP3 

sfcb ’ no 

SEC 6 16 J3 
SE~b 1° 17 
1 SCO IMG 
S E~b 1720 
S E^’i 17*3 
st“:c j ism 
EEC 6 176 3 
SEC 4 1767 
SEGb 177 3 
3SC ■> 17Q3 
SEC 4 17 40 
SETS 2 300 
SF.C4 2 >10 
1 E > ?0 >3 
SEC o 2.) 13 
SECS 27 *0 
SEC j 2 350 
SF 'n 2 34 0 
SFC4 2 170 
SEC 4 qq 
SFC 6 iCNO 
SEC6 2 l r 0 
SEC6 2110 
5 PC 4 2123 

s^c6 c no 

S “Co 214 7 
SFC5 t l r '0 
SEC 6 21*0 
SETS ’ 170 
S r T6 2 1 HO 
G EC 4 1 1 *0 
SE~b 2270 
s ?r b 2 ? i o 

SEC 4 2 2/0 
S EC 6 22 10 
S EC 4 224 0 
SEC 6 ’250 

s sc 6 2 . no 

SSC6 2270 
SECb 22^0 
SEC6 2290 
SEC6 2300 



nonn on ono nnn non nnn nnnnn nno 



354 WRITE (6 , 9 35 2) 

399 IP (KT9CT) 403 .403,400 

400 HEAD (1u[ T3RAY1 

WRITE (6,949 1) (TBRAY1 (T) ,1=1, 100) 

K T bCT = K T ECT- 1 
GO TO ) 9 9 

403 WRITE ( b ,949 1) (TBPAY(I) ,1=1 ,KT8) 

CLEAR TB SAVE ARRAY. 

KTB- 1 

KT BCT-0 

DO 405 1=1,100 
TBPAY(I) = 0.0 
405 CONTINUE 
LL = 26 
GO TO 5 Q 0 

STORE NUMBER OP ITERATIONS REQUIRED TO CONVERGE ON TB 



STATEMENT NO. 140 



141 NI3=NNB 
S N B= 1 

COMPUTE DENSITY OP GAS MIXTURE. 

RHOGB= (WG3*P)/ (1 0.7 32 *TB) 

INTERPOLATE FOR DENSITIES OP LIQUIDS A AND 3. 

N - 10 
N N = 1 0 

CALL INTPP (ROALB, N,TB,P) 

LL = 27 

IF (N) i 19,319,360 
360 M - i 1 
N S = 1 1 

CALL I NTPP n 03 LB , N,T3, P) 

LL=27 

IF (N) 3 19 ,319 ,363 

COMPUTE 0ENSITY CP LIQUID MIXTURE. 

363 8 HO Lb 3 1 « 

A D AR = 

PV0=AllOLE/ (RH*PnOG3) 

Q= (DBOL B^ABA R* VB) /( 144.0*5NLa) 



0 Lb 3 1 . C/<( ALPHA 9/POA LB) ♦ ( ( 1. 0-ALPH A3) / (ROBLB) ) ) 
AR= ( ( 1 44. j * E MGR) * ( 1 . 0/RHOG B* R3/RHO LB) ) / VB 
E= A HOLE/ (R B * RnOGB) 



C INTERPOLATE INTO VISCOSITY TABLES POR LIQUID A AND 3 

N= 14 
S N - 1 4 

CALL r NT BP (V I A LB, N, TB, ?) 

L la 2 3 

IP (!/) 3 19,319,366 
366 N = 1 5 
M N = 1 5 

CALL INTFP (VIOLS, N,T3,P) 

IF (N ) 369,369,370 

369 LL=29 

GO :o 119 

370 VILB = ALPHAD*VI ALU* (1 . 0-ALP HA B) •VIbLB 
REt = (B6 1 7 . 2* E M LB ) / { V I L 3* (JQIT(AUAR) ) ) 

ENTER CORP. ENT VALUES OP A AND ? INTO A VS ? TABLE 

529 H5TM7=5 29 
RETURN 

i j $$ss s jis ss st uss is $s s* * t ss $$* ; t s p sj - s: 

FIND GOOD APPROXIMATION FOR DS 1 TO USE IN SUCCESSIVE 



SFC6 21 10 
3 ECU 2 HO 
5 EC o 2 3 4 0 
SE^6 >350 
SZC6 7 360 
SF *6 2 no 

SEC 6 > JHO 
SEC 6 2 J^O 
S EC 6 2-463 
S EC 6 24 10 
CSC o 2 4 20 
SECb 24 13 
S r C6 4U4 0 
SEC^ 2450 
SSC6 24-0 
SEC 6 2470 
5EC6 744Q 
3EC6 7510 
SEC*> 25 10 
sr/Tfi 2 520 

• ♦♦♦*******~ Er <, J 5 10 

• **«******* 3 S :;5 7 V »0 
SECT ’559 

see 6 r>6 0 

SC'6 >5 70 
Sr.C '1 2 5r.O 
SE *5 2560 
SIT6 2o00 
SEC 5 2610 
3ECo 2670 
SEC 6 26 JO 
3 EC*' 2o * 0 
SECfi 7 650 
SECS >66 0 

sl*c.» 6 -70 
slv 6 

s nr : 6 n » , 
SEC*. 2 700 
SEC*) 2 7 13 
S E : 4 2720 
SSC7 2 713 
S E 26 274 0 
S SC 6 2 7 50 
SEC*) > 7.^0 
3 ECU 2770 
SEC . 2700 
sect 2" ?o 0 
5 EC 6 i >Z 0 
3 EC 6 74 10 
3 FT 6 J5 29 
SECn 24)0 
SEC 6 2940 
5 EC 6 n5 0 
SECt 2 4.. ) 
3 ECO 2673 

secs c*no 

3 r. C 3 COO 

3 EC 6 2 11 0 
Sc'^O 2070 
SEC 6 29 10 
SECS 2940 
Sf.Cb "950 

s ec 5 2 no 
SEC 5 2970 
SEC!) 2° 10 

1 rr r » 7 Qqa 
SSCb 1000 

X, 3 9 10 

****«• ******«**SEC6 3020 

SSSfSSSJSiJSSilSECb 3030 
SECo 3040 
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C SUBSTITUTION BOUTIN* AT STSP 90. 

C 

2399 KDSC7-Q 

N S r?1T = 9999 
I 3 LW -0 
KDS=1 
NND3- ) 

SGMaO. 5 

osniN-= t . oe- 6 - 2 . 0 * rs* (1 .o*n> /?) 

DS.r.\X=1 . OR- 1.02-6 
12 39 9 CONTINUE 
DS 1 = 05.11 N 

IBrf = 1 

UO TO SO 00 
2 401 CONTINUE 
DSX 1 = DS 1 
DSRtS1=DSRES 
DS 1=D31AX 

i e w= 2 

GO TO S 9 00 
2902 CONTINUE 
D5X2-PG 1 
DSRFS2 = DSRES 

I?(PL'n 12902, 2903, 12902 
12902 CONTINUE 
DS1=CS* V E 
GO TO 1 2 90 3 
2 90 3 CONTINUE 

DS 1=DSX1 -DS3 2S 1* (DSX2-DSX1) / (D5BE32- DS32S 1) 
I B LX = 1 

12 903 CONTINUE 
I B W= J 

GO TO SO 00 
2909 CONTINUE 

I? /Dor. -:s *nsa ES 1) 290 5,2906, 29 Oo 
2 905 CONTINUE 

US p'i:*.2 = DOPES 
U3 *2~ !> J 1 
SGN = - 1. 0 *SGS 
GO 2 4 07 

2406 CONTINUE 

D3R E:i 1 = D SH ES 
USX 1-00 1 
2 40 7 CONTINUE 

IF (SON) 124 07,2 408,2 4 03 
12407 CONTINUE 
D31=DSX2 
GO 2 4 C9 

2408 CONTI N II P 
G3 1 = ‘J.3X 1 
2909 CONTINUE 

DS 1=L>3 1 ♦ SGN 

IF (DC 1-D5K AX) 24 10,2 4 10,5 06 0 
2410 CONTINUE 

IF (DJI-DSfUN) 506 0,124 10, 12410 

12410 CONTINUE 

r d w = 4 

GO *"0 SO GO 

12411 CONTINUE 

IF (SGN) 12419 , 1 24 12, 1 24 12 

12412 CONTINUE 

I 3 pSP^S + OSR ES2) 2406, 124 13, 1 24 13 

12413 CONTINUE 

DS R E32 - D SEES 
DS X 2^ D3 1 
GO TO 12416 

12414 CONTINUE 

IF {DSH ES *DSR S3 1) 124 17, 12415, 12415 

12415 CONTINUE 
DS3 SS 1 = DSRES 
DSX1=D3 1 

12416 CONTINUE 



S2C6 10^0 
S EC 6 10 SO 
SECS 1070 
3 ECS 1080 
SECS 3 09 3 
SECS 1 1 '0 
JrTS 1 1 10 
SECS 1120 
SLCS J 1 
SFC’j 1140 
Sr.pj 1160 
TSCb J U 0 
SECS j 1 7 0 
SECS M60 
3 EC 6 3190 
SS'M 1200 
JECS j 2 1 0 
SECS J 2 20 
5E~b 12 10 
SECb 324Q 
Se> 125 ) 
3 Z^b >r ; ’0 

SECS 12 n 

SECS 32 8 0 
JCr (J 12^0 
S SCu < 10U 

sees mo 

3 : Cr, 119Q 
Sc G iJ 3 ) 
S EC 6 MO 
SEC') 1 IS j 
0E:'O l MO 
SECS M 7 0 
2S J HO 



;IE- 



SEC 



1 *0 
U'U 
1 ECn ! 1 0 

5 F'*S M20 
SCC U )0 
S HTS }4U ) 
3 KC f ' 146 0 
3 ECU 14 *0 
SE'> la 70 

3E T6 14 no 

SECS !O0 

sl:s mo 
mo 
15 20 
ibiO 
.5 gc h 1 s a \j 
3 EC) M r '3 
SECS 15^0 
3 ECS IS 70 
secs »so 
3 ECS isno 

SEC i(>" 0 

se :s it, i o 

SETS M->0 
SECS In 10 
SF.CS 1 S4 0 
ST'S 1»» SO 
SECS M'O 
S SC’o 3o70 
SECb M*9 
SECS JSM 
SECS .MOJ 
SECb 17 10 
SECS 1720 
S EC 6 17 3 0 
SECS 3740 
SECb 3 760 
SECS 1760 
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nnnn ^ „ nnnnn 



sgn=sgn/io.o 

I0LW-I3LW+ 1 

IF (IBLH-5) 2403,2403,5060 
12417 CONTINUE 

DSPSS2= DSilPS 
D J X2-DS 1 
GO TO 24C9 

EVALUATE DS FOR GIVEN DSl. TEST P CR CONVERGENCE 

$*;$;*$ ;s?tr .<smrssmsms«$ ;mss 

5000 CONTINUE 

SR =3*03 1/2.0 



A.Isl.O* (R*S8)/ (1.0*R) 
3R = 1 . 0 - 3 R/ ( 1 . 0+R) 



DVPSP^ (- - (V2/B-R) 

VERSO- v 0S3*DV&S0/2. 0 
IP (V r> <5O)b0DQ,50O1,5Q01 
6000 CONTINUE 

WPITF (b , 300 1 ) 5R,S ,D31, AM , fl , 0 «, D V3S Q, 71 , V 2, V3 IS 0, V Efl 
5001 CONTINUE 

VBR*S3 PT (7 UR SO) 

SER = h 1 * V ENM BS (SR) 

IF (RF"~.C0J0O1> 5015 .5015 .5005 
5005 IF (R'R-0. 1)5025.5020.5010 
5 010 r? (BLR-2 0O00 .) 50 JO, 502 5 , 50 25 
5 C 15 CD=2.4K07 
GO TO 5C 35 
5020 Cn=2«.0/PKR 
GO 7C 50 ?5 
5 02 5 CD-0. 4 5 b 9 
GO 7" 5 0 IS 

5 03 0 CD=ZX? (3.271-0.0893* (A LOG (HER) ) ♦0.0 3 4 17* 

1 ( (A LOG (REF)) r * 2) ♦.00l**43*( ( A LOG (R ER ) ) **3) ) 

5035 CONTI Nils 
OS 
1 

D . _ _ 

IF ( A L 3 { D S R EG ) - EDS) 9 1 ,9 1, 50 4 0 
504 0 DSt AY ( ' CS) = 03 1 

DSPAY (* US* 1) = D SR ES 
a L f* - K D 3 *2 

IF (PUS- 1 00)5055.5055,5045 
5045 WRITE (1b) DSR AY 
KDSCT=KDSCT* 1 
DO 5050 L=1 f 100 
5050 D3 A Y ( L) - 0.5 
KDS= 1 

5055 NNLS=N N DS* 1 

IP (N!.T)S-NDS) 50 70, 50 70. 5060 

5060 WRITE (6,5065) DS X 1 , OS X2 , DSl , D SaESI , DSR ES2, DSR F.S 
L L= 1 S 

GO TO 1490 
5070 CONTINUE 

GO TO (2401,2402,2404. 1241 1,2405.2407.2409) , I3W 

isrsTTi tsstlsz ssisss ssscsssmss & rsz f\z*szzszs$$szT$s$s$$s$$sssti$ 



)3*P=- ( (S 1*ADS (SR) *Sf1*CD) /OR) ♦ (S2/ (OR *VUflSO) ) 
I ♦ ( (S3* OR *07930) /VEMSQ) *S4*5R 
DsP E3= 3.R F- D3 1 



SEC6 1770 
SECS 1 7 <Q 
SrCh 17SQ 
SEC6 JdOQ 

mo 
sele mo 
secs n io 
sr.cs mo 
3 SCO M50 
5 PCS i960 
3 ECS IB 70 
secs mo 
SETS )x )Q 
SECS 1900 
SECS 3910 
SECS <9 20 
secs mo 
SECS 39**0 
SEC 6 1950 
SECS 1 is 3 

s ec 6 i no 

SECS mo 
SCCb r»9Q 
S LCS 4 0^0 
SECb *0 10 
5 ECb ! 9 20 
SECS 4 9 »Q 
5 ECS ‘*0'»0 
5 ECS 4 05 0 
3 ECo tOSO 
SECS » 17 0 
S ECu * 0 J 0 
s ecs 4 no 
5 ECS 4 100 
5 ECS 4 110 

SE'^ 4 1?0 

S~Cb 4 HO 
3 EC j 4 1 4 0 
SECS 4 150 
SECS 4 1* 3 
3 ECb 4 1 70 
3 ECS 4 1 IQ 
SE Cb 4 1 90 
3 ECS 4 2 0 0 
SECS *219 

sEcmno 

SECr> 4 2 JO 
5 ECb •* 24 0 
3 ECS 4 253 
S ECS 4 2b0 
SFCS 4 270 
SE^s *2 <0 

3ECb-*2'n 

S EC S 4 J 1 0 

se :»» * i ro 

3 EC b * 3 1 0 
140 





3 ECS 4 350 


RPUTE NEXT APPR0XIKA7I0N TO DS . 


SECS * ISO 




SECS ; 170 


Nis=svns 


SECS a 3 MO 


I H LX= 1 


SF.Chu 1-iQ 


D 3 = D3 1 


SECS 4400 


DS A VE = DS 1 


SECS *410 


S N D3*0 


S SC 6 4 4 2 0 


GO TO 100 


S ECo 44 10 


»ST.RT= 14 90 


SECS 4 44 0 


RETURN 


SE^S 445 0 


NSTRT=100 


SEC r > *4 60 


RETUFN 


S ECS 4u70 


NDIAG= 1 


S EC 6 4 4 HO 


CALL QUTFUT(NNN,LPGCT, RGEO) 


SECS 4490 
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NSTMT- 1 10 
RETURN 

5065 FOB BAT (1 HO, 7 X, 5 1H NO PS CONVERGENCE. COULD DFT ECT NO SIGN CHANGE 
UN , J4i|? ESIDUA LS OF r(DS). VALUES FOLLOW / (1 OX . 1P6515.fr) ) 

9001 FORMAT ( 1 HU , 1 GX .20HNFGATI VP V3M50,SZCTb / [ H , Ip SE 1 5 . b ) ) 

9136 FORMAT ( 1 HO, 7 f 17UCUTSIDE RANGE OF , A6,7H T 

lanT = , 1FE12.4 ,5X,u HP = ,F12.4) 

9310 FORMAT ( 1 HO, 7 X, 12 H li.-.GATIV ft PA 3) 

9312 FORMAT { 1 H3 , 7 X , 12 H NEGATIVE n B E) 

9313 FORMAT ( U!0, ’ “ # 



A3 LS - ,5X, 



FORMAT ( U!Q . 7 X . 1 7ilCU TSI DE RANGE OF ,A6,7H TABLE. ,5X, 
1 4 HT = , 1FZ12.4.5:<,4H? = ,=M2.4) 

FORMAT (1 HO, 7 Y # UP. IN FINITE ?A31 



9320 
9333 FORMAT 
9352 FORMAT 
9491 FORMAT 
END 



1H9,7T, laHNONTOSirr V5 F B) 
mo ,7 x * 2 u I* con ld not converge on rn) 
1 H , 1 P 1 0S1 1. 4) 



SUBROUTINE THROAT 

cor HON TZZZAY 

DI MENS TON TZZZAY f 11200) 

THE ABOVE C3MHON 3 LOCK FOR SUBFOUTINES TABLE AND I NT RP 
XT MUST EF THE FIRST COMMON BLOCK 



SET 6 4 500 
S&C6 •* S 1 0 
3 FC>» 4520 
SEC6 4 5 30 
S EC 6 4 5m 9 

S 206 4550 

FECK 1 5 r 0 
Sr.Cb 45^0 
SECS 4 5 PO 
SECS 

S EC t> o 7 0 
SECS 4 b 13 
SECS4h20 

r ccs 46 io 

3F.C5 4^4 0 
sees U.05Q 
- cm J010 
THRO LUO 
THRO J.) 10 
THTO 03 5 3 
THH3 JObO 



1 


ALPHS 


, A M 




A P 




AS 


, AT 


» PA 




THPO 


2 


DU 


, BETAB 


t 


2 ST AMU 




BETA 


B E T AS 


, i.vM 




rifi j eo'^o 


3 


C 


, Cl 


t 


CAG 1 




CAGMO 


, CAG 


, CAL.MB 




th? imo 


4 CBG1 


, CAL 


, C ASF 


t 


CBS MB 




C3G 


, C U L* 4 B 


, CD L 




T;i?f):)1 10 


COHflON 


C DM S 


, CD? 


t 


CD 




CTTM 


, EFIMS 


, CF'JM 




T HUGO 120 


6 


CFO MS 


, CG ME) 


t 


cor. 




CO MS 


, CL-j 


, CL* 4 




T :i n ) 1 1 0 


7 


CL 1 3 


, CSAVE 


t 


D 




02 


, DA 


, i>A r Z 




THIS ) 140 


a 


00 


, DELIA 




0 EL I 




DKLIS 


, JSLOM 


, HELD 




THUO0150 


9 


DELOS 


, DELS I 


t 


DEI SO 




oz i.r M 


, DE LT 


, 0EJ.V2 




7HKO0 1 b 3 


COHflON 


DEM AG 3 


, DE^AG 


t 


DEM BGD 




DEMUG 


, OEM GO 


, DIJT 




T'nirj 


1 


DL3 IS 


, DL503 


t 


on 




1 


, n? 


, DPAY 




Tine ; 1 ° 3 


2 


DPI 


, DRO 


t 


DP 




CS 1 


, DSAVE 


, DSI.TH 




THRO 21-0 


3 


03.M AX 


, 0 5.11 N 


t 


DSN AY 1 




OS ?A Y 


, 0 5 FES 1 


, 03RFS2 




r 1 1 1 o o i o o 


4 


DSR ES 


, D 3 


t 


D.V< 1 




00X2 


, 0 "G 1 


, DT ; 3 




ruo 3 210 


cofinoN 


OTG 


, DTMI 


t 


DTlf 0 




DT LI 


, 0 T LB 


, :>?L 




THRO )2 ?0 


6 


DT 


, nvusQ 




DVG.JQ 




CVL30 


, d:< 


, DYI 




THRO 02 .10 


7 


DYO 


, E B 


t 


ELS 




\G j 


r 5 M AG 


, "MliGU 




0 


3 


E.M3G 


, F. M G 3 


t 


Z.M G 




EMG3 


. r. m l a 


# FMLH 




THR O 0250 


9 


E *L 


, E M LS 


t 


EFT 




E30 


, FLIP? 


, >) < 




Ht 1 J ) ?* 0 


COflflON 


H 


, II J T 


t 


H K A G 




H K BG 


, B K ,M 1 


, ft K 5. i2 




TH l tO32V0 


1 


H KG M 


, HKGMS 


t 


HLA 1 




HLAM 


, OLA 


, HLAS 




THRO 0 7^0 


2 


HL3 1 


, ti l r.M 


t 


H LS 


9 


HLbS 


, 1 *M 


, IMS 


§ 


•prr ) 


3 


HOPE 


, HT 


t 


r ac v 


9 


I 3 U 


, I PLX 


, I?- 


9 


nip oj no 


4 


u.r 


, I NT 


t 


I SET 




IE FRO 


# < 


, K 1 




rino i < m 


COHflON 


K2 


, KAP 


t 


K03CT 




K 03 


, KL 


, SRI 




thrg ) i ? n 


6 


K R 


, KT-JCT 


t 


STB 




KYpI 


# K <P 


L 




rmno J.io 


7 


LI 


, 1.2 


t 


LCT 1 




LC 72 


, LL 


, LP^CT 




T IRO 0 140 


3 


LSW 


, MBU 


t 


.MFFO 




MFD 


, v;ro 


# * M 




1 ffl ) 3360 


9 n 


, HO? 


, MTHT 


t 


N AC V 




N 3 


, NCIX 


, NCT5 




run j jr o 


COMMON 


NOE AG 


, N DS 




!IGG 




NIri 


, N I S 


, MLST 






1 


SNA 


, N N li 




N N D 3 




N 0 N 


, N '.*? 


# li 'i 




THRO ? HO 


2 


.. NS 00 


, N N SO 




N ‘IS 




Sn 


, N SO 


, NS 




TH 1C 7 J°0 


3 


P 


, ? 10 


f 


? 1 1 




PAD 


, ? A M 3 


* n A 




THPOO'lOO 


4 


PAS 


, PEB 


t 


DUMB 




PU03 


, PUJ 


, PO 




Till:) 34 10 


COHflON 


FB3 


, ? H I A B 


t 


PHI PA 




PHI 


, PIN’' 


, PL 




THFO 5420 


6 


PL1 


, PO 


t 


?S 




p* 


, D 


, Oio 




THRO 24 30 


7 


R 1 


, PA 




PAS 




HAXO 


, fr ax 


, Hb 




THRO 0 440 


8 


RC 


, HDELIfl 


t 


FDELOM 




R DIMS 


# ROOMS 


, PEP 




TH Ro 0450 


9 


REM 


, n e**5 


t 


RF5 LIM 




PESO 


, FCCZ 


, PHOGB 




THRO )Uf 0 


COHflON 


RHOG 


, It HOGS 


t 


1UU LB 


§ 


? holm 


, ? HO!. 


, n H 5 L S 




^ 0 04 70 


1 


RLM 


, ? I 


* 


A M 


9 


POAL B 


, ^ ° A L 


, .‘.OUL3 




TH’iO 34 JO 


2 


ft 03 L 


, S OH 




PO 




ft 


, LSLIM 


# 1C 




TH ’ 0 0 4'i 0 


3 


«79 


, RV 




TVS 




S 


, 5 1 


# S2 




THRO 26 )0 


4 


S3 


, 3 4 




3 A 




SB 


SS'J 


, SIC. 




T H S 0 0 5 1 0 


COHflON 


SI5S 


, S MIN 




3.MJ 1 




SMJ2 


, S.MLC 


f SH LL) 




THRO 05?3 


6 


SALS 


, SPLF 


\ 


SMLG 




sa 


, 30.11 


, SO J 2 




TH.: 0 JSRO 


7 


SOP 


, 30 


t 


503 r 




S3 


, 3 EM 


# szo 




TiiRO )640 


8 


T 


, T 0 


t 


T3S AY 




TUB A Y 1 


, VC, M3 


, TOO 




THRO 0550 


9 


T G 


, TGS 


t 


THIM 


9 


7HI0 


, r h t 


, THIS 




nnoos^o 


COHHON 


THOfl 


, THOO 


t 


THO 


9 


THOS 


, r k 


# TFT 


9 


THRO 0570 
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CORSON 



CORSON 



TLHB 
TWI SS 

vao 

V3S 

VIALB 

vie; ns 

VL 
WAG 
n PL 
■ 0.1 
X IN T 
YIS 



DI-ENS TON TL (1C) 



7L0 
T W U 1 

V BOS 
vr.o 

V I At, 
VI LB 

v lsq 

W ACS 
4 GU 

4 0 ns 
x p 
YO 



TL 

two ns 
ve- 

VG 

V LOG 
VILA 
VL3 
4 AL 

• G 
X 

xs 

■/OS 



TLS 
V 1 

VBKSQ 

7GSQ 

VTBLB 

VILAS 

VS 

W5GQ 

WG3 

X10 

XX 

zzz 



tst 


$ 


T4 r n 




THRO 05 80 


V > 


t 


V h R 




TIJ8 9 059Q 


V B 




v as g 




THRO 0600 


V G3 




V I A G 




THRO 96 10 


VIOL 


, 


V I G 8 




TMPO ; >?0 


vi.n 


, 


VL.) 




THRO jt>3 0 


V S 3 


, 


4 AGB 


$ 


TH ' 0 9640 


4 3G 


0 


W B G S 




TH 9 1659 


win 


0 


wins 




rHKOOnRO 


T 1 1 




XCLK 






X X A 
NST1T 


t 


Y I 


0 


TH?? 06 40 
Til *o ;6 ,: »o 
TifilO )7J0 



DIMENSICN NDRAY (75) 

DI SENS TON DATE (5) ,CASE (3) ,QID(R) , X?( 2,75) f PL1 MO) , 
1 C (b) ,A?(2,7&1 ,XXA(S) .DSRAY (UO) ,DSnin (100) , 

21 (100) / DHAl(75),HT(1N) , D I N T ( B ) 

EQUIVALENCE (ND2AY( 1) , DBA/ (1) ) 



TPRAY (100) , 



IF (NSTST-1 10) 1 , 110, 1 
1 CALL DU 8 F 



PRINT THROAT CONDITIONS. 



XS,P3,RS, 7 BS , AS ,T3S,TLS, VGS,VLS 
VSS,SS,DD,RVS,ri AS , AL P HS , B LT AS , 



110 WRITS (6,0110) 

NST8T -1‘J 99 
WHITE (6,1001) 

1175 WRITE (6,100 2) 

1 JIGS, E.1 LS 

1176 WRITE (6,100)1 U UGGS , RHOLS , 4 AG S, W BGS , WG3 , 

1 ? A S, PHG Jl LAS, HL3S 

1177 WPITF (6 ,16 0<*) GIGS ,c;ns ,CLriS, VIGSS, VTLnS , 

1 iKgss,.! r:ns,cD.ns, ( in3 

1178 WRIT T (6 , 10 J7 ) / CT. , * O '3 , TMOS , DE IOS , 0 L SOS, 

1 V D<)8 3,C rose, TWO ns , VBDS 

IF (SGEO- 1) 40 7, 1 1 10, 407 

LINE 8 <1? OUTPUT CONTAINS ADDITIONAL QUANT HIES COMPUTED 
A N MU LAB NUZ ELI. 

1180 WHITE (*, 1008) /IS, 41, ns. Til IS, BELTS, DLS 13, R DIMS, 
i TEin>,Twrns 

097 N ST8?= 4 9 7 
a PTUI s 

FOB SAT 3 TATE RE NTS ‘■OR ^-LINS P 9 ” SAN ENT OUTPUT. 



POR 



1001 FONn AT ( 1 MO , 1 U 1 1MX, 1 JX , 1!( P, 1 V( , 1R*<, 1 
1 2 f!TL , IPX ,2i fVG. 12v,2HVL,/,n X , U 6£li. ; ) 

1002 FOn HAT ( 1 i‘0, 1 2X vs , 1 IX, (O'* ' * •- ' 

15 RALPH A ' 

1003 FO 

112. . . . . .. . . 

1004 eohsa i* ( iho. >y , 5 ;(«Tnn.», 1 1 x, i iic ; ,n. i ix, ih< 

l 4 HVILr “ ■** ' - 

1007 r 0 
1 9 X 



1 2*, 2:1V 3, Ilf, 1 H A , 12*, 2 HTG , 1 

» ) 

n f , 1 .IP, 1 2 X , 2 HR V , 12* ,2HEA, ?X, 

2 a W G , 

n x , ; ii v i t; n , i o x , 



5 RALPH A , n X, 4 H BETA , 1 2X . 2U. V i , 1 2 X . i H v L , / , ! » < t 1 P 4 E 1 4 . 4 ) 

fohra r ( f ho , i ix, '»uro';,i ix. (upul,i ix, i/pag, ux, >hwb.;, i2x, 

12r,2l!?A, 12X ,2'P1 i, 12<,2 (LA, IPX ,2RL4, /,oX, IT-1- 14. ^) 

EOHSA ; ( i ho , ) x , 5;i«rnn;*, 1 1 <, (uc ;-n. i ix, wli, nx, -id wigs , 10 *, 
auviLn , 1 (x,Jt.ron, n x . i h «- r.'- , i ix . 5:icon , iex . 2 ih 4 , /, ex, 

FORY A T ( 1 HO , 1 2X , 2HY n , 1 IX. 3u 4 n, 1 1 X , 1 (TOO, 1 0 X , 4 .! D ELO , 0 X , >!(D 2 L *0 , 

9 X , 0 fi R £ U C 1 , 1 0 X , 4 HC F 0 R , 10 X, 4111*08, MX , )t)V3D,/,5 X, I?0ri4.4 
1 008 FUHSAri 1H0,12X,2HYI , 1 IX. 38 4 in, 11X, 3 I! Til I, 1 0 X , 4 » D EL I, y X , Sl(D EL • 1 , 
1 5 HR EDI 8 f 10 X, 4 IfCF I R , 19* ihTWT 4, /,bX, 1 PR 51 4. 4) 

9110 FORSAT ( 1I!0,7X,24HT!(HOaT CONDITIONS FOLLOW) 

END 

SUBROUTINE DI AG NO 

CO-SON TZZZAY 

DISENS 10 N 7T.32AY ( 11 2 00) 

THE ALJVF CORSON BLOCK FOR SUBROUTINES TABLE AND INTRP 
IT RUST BS THE FI 1ST C 08 HO N ?LOCn 



conn on 

1 

2 

3 

4 CBG 1 

coanoN 



A 

ALPHS 

BB 

C 

CAL 

cans 



A BAR 

a n 

BETA B 

C 1 

C A S3 
C DP 



ALAR 
A P 
BET AttB 
C AG 1 
CBG SB 
CD 



ALPHAS 

AS 

BF.TA 
CAP , 8 0 
CBG 
CFin 



ALPHA 

AT 

BETAS 
SAG 
C 3 L SB 

cpins 



\LPH8B 

HA 

3,n 

C A L n B 
C 3 L 
CFO fl 



THRO J7 1 0 
THRO )7 20 
T38:AYTHPJU' , 10 
TRIO 740 
THRO 0 75 0 
T(P') J70G 

TMPO 0770 
TH»»o 075 J 
TH a 0 37 0 
ru o ROOD 
T H :• 0 H 1 0 
^H 'O ) J 20 
TRPO ‘030 
T'Tn '} 14 9 
THRU ) l, 5Q 
Til'^D U 8 #, 9 
THRO 0870 
THRO In . 00 
Tfno o 
THsiD ) » )0 



THRO )9 >0 

j »0 10 

THRO nuo 

THRO V)50 
THRO >0^0 
THRO j o 7 0 
"M - 0 ' 05- 0 
TH 'O J ^0 
T’u on , 0 
T.'! ;, 0 ( jlO 
THE 0 19 
■"Hi ( 9 19 
HR? 4040 
!!. >1950 
TM''0 UhO 
THRO 1 9 70 
rum 1080 

TH^O 10OQ 

t:i ) 1 1 jO 

TH . 3 1110 
THRO 1 120 
THRO 11 10 
Tins 1 1 ut) 
Till 0 1 ISO 
""IP? ! 16 1 
TM 0 1 170 
T?*.-n 1 1 RO 
D I > G J J 10 
01 VI 9020 
D I AG 0 10 
DIAGGuSO 
:)I.\ ;0060 
DTAG 9073 
DT,\ -no^o 
31.5.7 9 0^0 
D I AG 1109 
DI AG ) 1 1 0 
DI AG 0 1 20 



2T, T 



n\ 
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6 


CFO MS 


, CG 19 


, CGM 


CG MS 


CL 1 B 


, CL* , 


DI AG 01 .10 


7 


CLMS 


, CSAVE 


, D 


D2 


DA 


, DATE , 


DI AG 0140 


8 


DD 


, DELXM 


, DEL I 


DELIS 


DELOM 


, DELI) , 


D r A G 0 1 ft o 


9 


DELOS 


, DELSI 


, DFLSO 


DELm 


DELT 


, D H L V 2 


D l AO OlftO 


COMMON 


DEM AGB 


, DEM AG 


, DEM BGB 


DEMBG 


DEMOB 


, DINT , 


DTAG 1170 


1 


DU IS 


, DLSOS 


, DO 


DP 1 


DP 


, PRAY , 


Dr AGO IPO 


2 


dpi 


, DRO 


, DR 


DS 1 


0 S A V E 


, DSL 1.1 , 


DT AG 1 1 DO 


3 


DSM AX 


, DS.MIN 


, D SR AY 1 


DSP AY 


DSHE31 


, i)S»ES2 , 


DIAO 0200 


4 


DSR fs 


, DS 


, DSX 1 


DO. (2 


DTG 1 


, DTG U 


DI AO 12 10 


conaoM 


DTG 


, DTHT 


, D TH 0 


DILI 


D r L B 


, DT L 


DTAG 0270 


6 


DT 


, DV35Q 


, DVGSD 


DVLSy 


D X 


, DY I , 


DTAG 1230 


7 


DYO 


, EB 


, EDS 


EM AG B 


El AG 


, E1BGB , 


DI A o. 1240 


8 


E*BG 


, eigb 


, E MG 


1**03 


EM L3 


, FILM , 


nr \ G 0 2 ft 0 


9 


E ML 


, F MLS 


, EMT 


ESO 


FI. ESP 


, t 'HX 


DI A ; 0 2 P 0 


COSMOS) 


H 


, h j r 


, UK A G 


HKBG 


axon 


, HK012 , 


DIAS 0270 


1 


HK3M 


, HKGMS 


, !l LA 1 


ML AM 


HLA 


, HLAS , 


DIAG02P0 


2 


HLB 1 


, H L BN 


, HLF 


(ILLS 


HM 


, HIS , 


DIA0 02»0 


3 


HOP E 


, ft T 


, I AC V 


I B L4 


IB LX 


, IB 4 


DIAG0100 


4 


r jh 


, I NT 


, 13?T 


17S.RO 


X 


, XI 


DI AG )J10 


COMMON 


K2 


, K A? 


, KDSCT 


KD5 


, < L 


, KR 1 , 


DI AG 0120 


6 


XR 


, X T3CT 


, KT 13 


KX PI 


KXP 


, L t 


DTAG 0 3 ’0 


7 


LI 


, L 2 


, LCT 1 


LCT2 


LL 


, LPOCT , 


D HO 0 34-) 


8 


L3W 


, 1 3M 


, MFPO 


MF? 


MOFO 


, MM 


DTAG 3 ISO 


9 M 


, no? 


, M TilT 


, N AC 7 


N 3 


N C LX 


, nc r 5 


DI AG 0 1ft 0 


COMMON 


NDI AG 


, N DS 


, NGG 


NTU 


N IS 


, NL3T , 


DTAG 1370 


1 


NNA 


, H N U 


, NNDS 


NNN 


N NP 


, N N , 


DTAG J 3 HQ 


2 


NIIGOO 


, NNftO 


, ‘JNS 


NP 


‘ISO 


, NS , 


DTAG o no 


3 


? 


, ?n 


, P11 


PA 3 


PAMB 


, PA 


DIM 14 0 0 


4 


PAS 


, PHD 


, F BM B 


poor 


P BO 


, PI 


DTAG 74 10 


COMMON 


PBS 


, V H I A B 


, PHIBA 


?iii 


PINT 


, TL 


DIAG04P0 


6 


PL1 


, PO 


, ?S 


PT 


3 


, oin 


Dr AG (J4 10 


7 


R 1 


, HA 


, ? AS 


RAXO 


AX 


, PB , 


01 AG J u 4 0 


8 


BC 


, PDELIM 


, RDLLOM 


R DIMS 


l< DO IS 


, a of 


DTAG 14 GO 


9 


R C M 


, HEMS 


, RTSLIM 


a ESo 


RES 2 


, iMDGB 


PI.AG 1U*>0 


COMMON 


R HO G 


, P HOG S 


, A HO L 3 


RH )LM 


R HO L 


, ° HOLS , 


DTAG 1470 


1 


HIM 


, HI 


, RH 


ROAL 3 


20 A L 


, n OB L B , 


DI AG 04^0 


2 


R03L 


, ROM 


, RO 


R 


J S LI M 


, FS , 


D T AG 04 oo 


3 


pvn 


, H V 


, ri 73 


0 


S 1 


,02 , 


"*I AG jftOO 


4 


S3 


, su 


, SA 


SR 


SON 


, SIS 


DTAG Oft IQ 


COMMON 


SIS s 


, S .1 1 N 


, 3 MJ 1 


S*J2 


3 1I.C 


, o ;i l o 


DI AG 0520 


6 


SML e 


, S ILF 


, SOLO 


SM 


3 0 J 1 


, SO.I2 , 


PI A r; 35 iO 


7 


sop 


, SO 


, 3 0 o M 


33 


3 21 


, 02 J , 


DT A 1 >^4 0 


B 


T 


, T B 


, TBRAY 


*" 8 .< A Y 1 


roiB 


, , 


D I AG 055 0 


9 


TG 


, TGS 


, T HI .1 


TMIO 


r:i r 


, t :i i s 


or AG'nfto 


COMMON 


THOM 


, THOO 


, TOO 


TP OS 




, TXT , 


DUG ) ft 70 


1 


TLM ft 


, TLO 


, TL 


TL J 


:st 


, T*ri , 


0 I AG 1500 


2 


T -r MS 


, T 401 


, T *0 MS 


V 1 


7 2 


, v a , 


D I AG J ft ° 0 


3 


VBD 


, V B DS 


, V PM 


V 913 <2 


V 3 


, V DS ) , 


IT AG Ift'IQ 


4 


70S 


, 700 


, 70 


VOSD 


7 0S 


, 7 1 AG 


DT AG 06 10 


COMMON 


VIA LB 


, 7 IAL 


, 7 TUG 


/ T IjL 8 


VIOL 


, visa , 


DIA T )D20 


* 


7 IG MS 


, 7 I LB 


, V T L M 


VTLM3 


7 LM 


, V LO , 


DI ; On 10 


7 


VL 


, V LSO 


, VLS 


V S 




, 4 A 13 


DT \G 1b4 0 


8 


■ AS 


, 4 AOS 


, '4 AL 


43GB 


- 00 


, 4jOS , 


DI AG J» r >0 


9 


WllL 


, - G Q 


, 4G 


'4C»3 


m I iM 


, 4 TMS 


DT AG lftftO 


COMMON 


1*0.1 


, *015 


, X 


X 10 


X 1 1 


, XCLX 


DI AG 1*570 


1 


X IN T 


, XP 


, XS 


XX 


< X A 


, y i ; 


DIA G 1t«0 


2 


ns 


, YO 


, YOS 


222 


as tit 




DIAS Aft 1 3 



d: 
d i: 



VSICN 
ENG ION PA 



C (0 , A P j 
21 (100) , JRAY{75 

- , f 



S ''R AY ( 75) 



EQUIVALENCE ( n* b r a f . 
IF (NST.1T-497) 1 ,447, 2 

1 CALL DUKE 

2 IF (N STMT-5 29) 1 ,529, 1 

497 N3TM = 999D 

I? (NDIAG-1) 1 0,498,10 

498 DO 499 1=1,75 
DRAY (I) =99499. 

499 CONT IN □ B 
LSJi-0 



, . r 0ID(8) , X*f 2,75) ,PL1M0) , 
t XXA]o) ,DSK AY (10Q) , DS«AY1 { 1 00 ) ,T3HAY(1Q0), 



o\. 






dt v; o 71 o 
stag j7^o 
TBS A Y DT AG 07 10 
DIAS 074 0 
diag >750 
D I A G 0750 
DIAG 0770 
•JIA7.J790 
or a ; 07^0 
DIAGCH 10 
D r A G 0 « 1 0 
DUG J*79 
J T A G 18 30 
DIAG084 0 
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nonnnn 



_ „ ) 1.50 2 . 503 .5 04. 505 .506. 507 , 50 8. 50 4 1 510 , 5 1 1 , 5 12# 5 1 J. 5 14 # 

1 5 15,5 16, 5 17,510,519,520,5 21,522 ,5 23 ,524,$ 25 ,526 ,527,528, 



GO TO { 5 01. 



5 2 0) , LL 

DIAGNOSTIC OUTPUT. ENTRY IS «A DS TO S e? CERTAIN 

SETS OF OUTPUT VALUES INTO THE ARRAY DP AY DEPENDING 

ON THE VALUE OF LL , *HICU IS SET IN VARIOUS POINTS THROUGHOUT 

TUE i A 1 N PROG RAH. 

529 DRAY (04 ) =PE? 

NSI^ A = Q 5 o 9 
DRAY (4 5) = V I L 8 
523 DRAT (Slj 

DRAY 33) -ABA R 
DRAY 47) 



527 

526 



DRAY f 4 ►) ) 

b 



524 



DRAY (39) 
525 DRAY (44) ; 
D3 AY 4 M 
DRAY (3 7) 
DRAY (4 ? ) s 
DR AY (4 1 ) : 
DRAY (50) : 
DRAY (4 9) 
523 DRAY 49 
522 DRAY (52) 
521 DRAY (51) 
520 DPAY (70) 
DRAY 5 
DRAY C 7 1 ) 
DRAY (6 1 ) : 
DRAY (60 j ; 
DRAY (Ir, i 
DRAY (35) - 
519 DRAY (I'M : 
516 DRAY (t> ) 
DRAY (56) 
DRAY (5 9) 
DRAY pH) : 
DRAY (57) : 

RAY (6 2 



514 

513 



512 




DI AG OR 50 
DIAG 3960 
DIAS 0870 
DI A G 0930 
DIAG 089 0 
Dt\G<'9 IQ 
lit AG ) * 10 
31 VG 09 20 
DIAG 0910 
DIAG 0940 

DIAG I960 
DIAG )46 0 
DIAG 0970 
DIAG jon,) 
DIAG J09O 
DIAG 1000 
OTA '* 10 10 
DIAG 1020 
DIAG n (0 
Dt A 1 194f) 

JI AG 1 r>o 
DI AG UmO 
DIAG 1070 
I, AG 10 90 



D I A 
Dt A' 
STAG 
DIAG 
DIAG 
d i \ ; 

D l " G 
DIAG 
ill AG 
DI * 



i in 
1 1 r n 
1110 
112 9 
i no 

? 1 40 

I 159 

II hO 

j no 
mo 



DTAG 1 I'M) 
DIAG 12)0 
D I A ; 1 2 1 0 
DIAG 1220 
DIAG 12 1 0 
7 1 A G 1 2 » 0 
DtA ; 12 )0 





DRAY (63) sD^LSl 


DIAG 


1 7mO 




DRAY ( 


6“M = DLL I 


pi* ; 


1279 




DR AT i 


=791 


DIAG 1240 




DRAY 


66) =WI1 


DIAG 1 2 fl 0 


517 


DRAY ( 5 ) - A 
DRAY 1 2) = D 


DIAG 

DIAG 


1 190 
1 MO 




DPAY \ 


29) = SIG 


DIM 


1 320 


516 


DRAY ( 


14) = R A 


DT.AG 


1 3 10 




D 0 A Y 1 


;9) = V L 


DIAG 


1 34 0 




UR AY ( 


4) »7G 


mi 


i 150 


515 


DRAY 1 


1) =x 


DIAG 


1 160 




DRAY i 


'10) *CL?1 


DIAG 1 370 



DIAG 1 190 
DIAG 1 j ,J 0 
DTAG 1409 
: ) I A i 14 10 

d: a ; n ?o 

DIAG 1 no 
0 1 A G 1440 
3 T A , i 4 5 0 
DIAG 146 l 
DtA '» 1470 
DIAG 1 4 R 0 
DTAG 14^0 
DIAG 1500 
HI A ; 1510 
DIAG 1570 
DIAG 1530 
DIAG 154 0 
DIAG 1650 
DIAG 15t>0 
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yuuuu uuu 



OPM (65) 




11=-?* f 1 

GO TO 6 3 

DIAGNOSTIC C'JTPUT - VARIABLES NOT YF.T COMPUTED THIS 
ITERATION APE SET TO 1QE5. PRINT OUT NINE LINES 
Gr OUTPUT. 



550 WRITE 

551 „PITF 

552 *RI7E 

553 WRITE 

554 WRITE 

555 WHITE 

556 WRITE 

557 
55 B 



AR I 4C. (6 

WRITE 5 
CO NT IN U E 



(6 ,100 1) 
o , 130 2 
6 , 100 3 i 

6,1034 

6 ,1035 
[6 , 133 o 
6 , 1 00 7 



, 103 H ) (DRAY 



1 0 P A Y (I) ,1=1-9) 

DR A T / I ,1-10,13 
LPT Y (T ) ,1=19,27 
DRAY I , 1=23, 3 t/ 
l'?\ Y <1 , 1=29,45 
UFA MI) , 1=46,54 
(ORA Y (I) , 1 = 55 ,6 3 
\bb AY (I) ,1 = 



= b4 ,7 1) 



NN A, SIS , NIB 



WRITE (5,100 9) 

10 NS T»1T= 1 0 
RETS PM 
6) NST'*T = 6 3 
nETURN 

POH.1AT STATEMENTS FOR 9- LI NC P EH MAS EMT OUTPUT. 



1001 POP MAT ( 1H3, 1 3 X , IPX, 13 M 1H r ', 1 3X , 1HK , 1 2X ,2 H V3 , 1 3 X , 1 11 A , 12X,2?ITG, 1 2( , 
1 2HTL . 1 2 X , 2nV 0 , 1 2 X .2 ii VL , / . 6 X , 9f. 06 . *) 

100 2 EOPMAT ( 1b 3, 12 X, 2 H VS, 1 JX, »|« S , 1 3 X , 1 1 :0 , 12 X , 2 HR V , 1 2 X , 2H F A , 4 < , 

1 5HAL1 UA . 10X, 4H PT-TA, 1 2 X , 2 H TO , 12X.2H' 1 L,/,^X f lEM.u) 

100 3 FORMAT ( iHO.l IX , 3HPOG, 1 IX , JHPOL , 1 1 X, 3 H W Aft , 1 IX, J U V BG , 12X,2HWG, 

1 1 2 X , 211 P A , 12X , 2H?li, 1 2X, 2!iLA. 1 2X ,2HL9, /,bX , 9E14. 4) 

1004 FOrMAT ( 1 H0,9JC, 5HCIG rtA. 11 X, 3HCGM, 1 IX , 3HCL 1 . 10X,4HVIGM.1CX, 

lUHVILrt , 1 1X,3HKGa, 11 X, JHHISfl, 1 U ,JIICD1 , 1 2X , 2 HHrt, / , o X , 1P9 El 4. 4) 



DIAS 1570 
DUG 1590 
DIAS 1593 
DI AG 16C0 
DIM. 1610 
01 A 3 1523 
01 \ 3 16 10 
DI AG 154 0 
D I v; i*50 
or u, i5h0 
On;; 167Q 
DIAS 16 >0 
DIAS 16 10 
D I .A i 17 60 
dtv; 1710 
01 AG 17 60 
D I A G 1 7 10 
D IAG 1 74 0 
D n G 175 3 
DI AG 17^0 
un ; 1770 
D n G 17 3Q 
or AG 1 79 3 
D I AG 1330 
on ; mo 

01 A G 1^2 0 
DI AG 19 10 
9 n G 1 H 4 Q 

a : ag n*.o 

0 1 A G 14*, 0 

DIAS 1 1 ;o 

DI A ; 1 363 
D I A ; 19 <3 
nnr, 

D T A G 1 9 1 0 
91 AG 19?0 

n n g 1 9 1 o 
or a ; id i a 
dia ; 1950 

DI Ar; 197 3 
Dir. 1 9 n o 

0 1 A G 1 99 0 
DI At; '900 
DI AG 20 10 
DI AG 2020 
dia; .:) n 

ni A 7 2 34 0 
on G 2 353 
D T A i 2 06 Q 
Dr AG 297 3 
D I \ G 2 0 J 0 
D I AG 2 14Q 
D I AG 2 ICO 
DI v; 21 10 
DUG 2 120 
PIAG21 10 
DIA 12140 
D I A G 2 1 6 0 
D I AG 2 1 6 0 
D I A G _ 1 7 0 
D no 7 1 p O 
DI A.: 2 1 9 0 
DI AG 2290 
31 AG 2 2 20 
DIAS 2233 
DIAG224 3 
DTAG 3250 
0I.\r t< 2h0 
DI AG 2 370 
DI AG 2740 
D IAG 2290 
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r rdh'/u irj, i , tiA t .>ui'tw,iv>A,‘* 

19X,5Hi<i.DOH,1 OX,4HCFOH, 10 X /MIT.iOH, 1 U , )UVBD,/,»X, ° E 1 4 . 4) 

J PORT AT ( 1H0,12Y,2UYI. IIX.J!l»n, 1 IX, ^ !l TUI , 1 l)X # 4:J'J SL I , n, 5HDSL*1 ,‘)t, 
15HRE3IH f 10X, UHCFIfl, V)i(,4.{7WI«,/,4 X,8 314.4) 



i j n r, j l . , uu.'M'.irin, 

1009 F0 PH AT ( 1 HO c 1 0 X f Jll NT* A ,°X , J H N I G ,9X, lil.NIB / 2Y , 3 ( f>X , T 6> ) 
C 1032 F0RHA7 J 1 E 1 , i 20 X, 5fiP AGS # lJ # / # 1X,15HflsAf. 7 WO-PU AS £ , 



1 2b H TWO-COHinNEVT N 027, L 

END 

SUBROUTINE WRITS 
1 DrLV2,5''G ,HLA1 



FLOW,// ) 



(DVGSOfOTL, B10t1 e OVL'10,i)S1AG, DEH3G, 
, C.AG1 , BELT, tILbl, C PG), SI, AH, JT , DX , OS) 



write rs/^i i) V/ggd,dtlI phut* ,ov ls o ,a*,K ag,dsto; 

1 D2 LV2,2f1G ,HLA1 ,CAG1 , 0 SLT, HL3 1 , C DO 1 , 7.M, AU, 3H,DX, D5 



BETHRN 



9231 POPHAT ( 1R0,1 2X.5HOVG7J, 14X, Iff DTE, 1 ? X ,5 MR ftOLH , 1 2X ,5MDVLSQ, 1 2X, 

15HDEHAG. 1 2 X , 5HDCH5G, 12X, 5«DSI-V 2 f /, IX. 1 ?7 c. 1 7- o, //, 1 5 X, 1*1£HG, 14 X, 
1 3I1LA 1 ,13X,4IfCAG1 . 1jZ,af PrLT ,1ax, 3 HL51 , 13X,4riCftG1 , 

1 1 5 X , 2MS H , /, IX, 7 E 1 7,o,// # 

2 1 6 X , 2HA H , 1BX ,/ HUH , 15X,2JfDX, 1 5T, 2HDS , /, 1 X, 7E 1 7 . 6} 



LPG 



El D 

SUBROUTINE OUTPUT (N , L?G, .1C 20) 

C SUBHOUTI NR TC READ SAVED PRINT L 7 N ES PRO H LOGICAL 
C TAPE 20 AND PRINT 7HEH ON r 0K TA RAN OUTPUT TAPE. 
DIMENSION D2 AY (75) , NDRAY (75) 

20UI VALENCE (DBAY (1) , N DRAY ( 1) ) 

PL WIND 1 1 
L = 1 

1 IP (N) 9 9,99,2 

2 READ J 1 1) DBA Y 

IF (L) 5 , 5 ,'* 

4 wpfrP (5.103 2) 

L?O=LP0* 1 
L “0 

GO TO 6 

5 WRIT' 7 (6,099) 

L= 1 

6 WRITE (6,1001) 

WRITE 6,102 
■ RITE 6,1003 
WRITE (6,1004 
WRITE ( 6 , 1; J 6 
WRITE 6,103 6 
WRITE (6,100 7, 

I ? MGEO) 7.9. 7 

7 WRITE (?i,10J6) 

3 CONTINUE 

WRITE (6,1000) 

N = N - 1 
GO TO 1 
39 REWIND 11 
E STUPE 

99R FORT AT ( 1 HO,/// 

C 1003 FORMAT (6 X , 1? 9“ 



D PA Y (T) ,1=1,0) 

0 ° A Y (I } ,1 = 10,16) 
DRAY ft) ,1= 10 ,27) 



OFAY ( 
OPA f 



i , 1=25,36 
, 1 = 17,45 



DRA Y f I » , M4b ,5 4 



Dl ; A Y 



, 1 = 55 ,6 3) 



{PRAY (I) ,1=64 ,7 1) 
{NDR AY (I) ,1=72, 74) 



) , 



, w.. ■•,* , 14.4) 

1001 POF.-ATf 1H0,1 JX.1MX. 1lX,1HP, 13X . 1IIR, 1 2X,2UVB, 11X, 1HA, 12X,2HTG, 12X, 
1 2 HT L , 1 J X , 2 SfV G , 1 2 X , 2 M V L , / , 6 X , 9E 14.4) 

1 002 fOPHAT { 1U0,1 2X.2 1 ' »S, UK. 115 5, 1 1 X, 1UD, 1 2 X , 2 M H V . 1 2 X , 2 H K A , °X , 

1 5 H Af.PH A , 10 X, 4 H BS C A , 1 2\ , 2 If * i , 1 2 X , 2 H « L , / , u i, . * ^ V. . 4 ) 

1 003 FOP HAT ( 1 HU . 1 IX , 3:Uu>G, MX, jjUOL, 1 1 X, 1 <1* AG , 1 IX , J U W ?G , 1 2X , 2H WG , 

1 12X,2ilPA , 1..X , 2f!?£, 1 2X, 21! LA , 1 2< , 2H1.fi, /.,< , OM i. 4) 

1004 F O F H A T ( 1 H 0 , } X , 5 M .0 I G 1 A , 1 1 X , ~ " 

14HVLLT , 1 IX, 3 UKGH, 1 1 X, iilh M 

1005 foma” ( i :ic — ‘ 



, 1..X , 2HPE, 1 2 X , 211 LA , 1 2 * , 2M 1. 5, /. 6 < , 0 E 1 * . 4) 

HO, 3 X, 5*1.0 IG 1A, 1 1 X, lHCG.r,1 K, 3M C L 1 . 1 C X , 4 i V 10 P , 3 OX , 
IX, 3 U KG H, 11 X , J ilh , 1 IX , UUCP X , 1 2 A , 3 HU 0 , / , 6 < , ° 2 1 4 . i ) 
HO, 12X,2URB, I2X,2HAB ,1 2X. 2UrB. 11 X,1'HV J, *X, 5iiAL?!13, 
A B , 1 IX, 3H.-GB, 1 IX , JUM Lo . 10 X. 4 H V IL 3 , / , «> X , ** S 1 4 . 4 ) 

H 0 , 1 0 X ,4h:mjGB. ID X,4,(K(/Lb, 1 0 X ,u» -W AGH, 1 IX, 41IW3GH, 



19X,5HBETAB 

1006 POPHAT ( 1 HO ( < V/ A c * r. .*ISU U* IW/^,-»11 CVV/l,D, 1 J K 

1 1 IX, 3H -GP 11 X, 3HPA3 , 11 X, 311 T «3 b , 1 J X , HI C, 11 X 



•4 1* n ij Vf f 

k, itf D Ec',/,oX,9El4.4) 

1 0 X , 49 D ELO , C4 X, c: HDEL*0, 



i i i a f j n w i v c - m \ r jni hu | 

1007 POKHAT f 1 HO , 1 2X ,2HYO, U X. 1HWO-, 11 X. 1HTHO, - 

19X,5HREDCH,1 OX,4HCFOfl f 10 X, 4HTW OH . 1 1 X . 3 HV DO ,/, 6 < . 9 PI 4 . 4) 

1008 FOKHAT ( 1H0.1 2X,2«YI . 11 X, JHWIH, 1 1 X . JHTHI, 10X, 4HOiLI, 3X , 5 
1 SHBEDIn , 10X, uiltFin, 10X,4HTWIH, / ,6X, 3 £14. 4) 



HDELM , UX, 



PIAG 23-10 
DIAG2J10 
DI AG 23 20 
01 *• G 2 3 1 J 
D I A I / 34 0 
DIM 1 JSO 
01 AG 2 MO 
DI\G 2J73 
DM3 2 S ? 0 
01 A3 1 1^0 
01 AG 2400 
D LAG 24 10 
W R T 7 P 0 1 0 
■ 0 T T 3020 
WRIT M10 
• F IT 304 0 
n*: 7C051 



WP. r T i0 { - ) 
WRI70 ) 7 0 
WRITOOM 3 
W R r T 3 0 n ‘ 0 
WRIT D 100 
w r r r 3 1 1 o 
Oirn 0010 
OUT 0020 

out? n n 
our? oo* o 
0IJ7P0 )50 



OUT n 0070 
OU7?'JO» J 
OUT? 3 0 1 1 0 
our? 3103 
OUT ) 1 10 
OUT'' 3120 
OUT n 0 1 10 

o u r ? •> i u o 

O r J TUI 60 
OUT ? 0 16Q 



ou:? )iro 
mi r?o i°o 

OU T32C0 



ou: p ) ) io 

0!r*» D,?4i) 
ou? r ' V'O 
our? 12b0 

OUT? '^■’O 

our? ) ? 4 o 
OUT'' M90 
ourr 3 1 v) 
our? 03 n 
OUT? ti 120 

on-? ) m 

14 0 

OUT ) l c .O 
OUT' 1 M60 
DU rp 1 170 
UUP? J 250 
OUT? 3100 
OUT? 



OUT 34 20 
ormou 20 

OUTP 3440 
OUTP 5450 
OUTP 0460 
OUTP 3470 
OUT? 4 H 0 
OUTP 04^0 
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uuu 



1009 POFMAT MH0,10X,3HNNA,9X,3HNIS, 9X, 3HN IB 
1 3 fGX ,16) ) 

1032 POPHAT ( 1H1,1 20X,5UPAGE ,I3,/,1X.15H 
1 26 H T -0 -COUPON EMT NOZZLE PLOW, 



/,2X, 



FN D 

SUBROUTINE XPTBL(Xr) 

SUBROUTINE TO PRINT OUT XP TABLE C 
D I NFtiS I ON XP (2,75) 

792 L 1 — 1 
L2 =3 

794 WRITE (6,793) 



15H3EAL TWO-PHASE 
// ) 



OUT P 0600 

OUTP9510 
OUT? 0 r >20 
OUM 35 30 

OB'"? 0540 

x p r ? ) i i o 

X^TH 00 '0 
X? "P )0 1 j 

XP r,nOUO 

XP-T9050 

tr:uu*76o 
i?7[\ J r 3 



795 


WRITE (6,909) 


(XP (1 , YP) , JIT - L 1 , L? 


X P T u 0 C 9 0 




WRITE (6.917) 


(XP (2 , -IT) ,flT*L1, L2 


XP~'1 3090 




IP (L2-72) 796 


, 797, 


xrrn ) ioo 


796 


L 1 - L 1 *9 




XPTP ) \ '0 




L 2 = L2* 9 




X” 1 '? ) 120 




GO TO 715 




XFO 3 ! 30 


79 7 


L 1 -L 1 ♦ 9 




x p r u o 1 4 o 




L2 =L2 ♦ 3 




X PTH 01 50 




GO TO 795 




XPTP ) 1-0 


79 9 


RETURN 




XP'l) 3 170 


79 3 


FOFilAT ( 1 H 1 ,//, 


50T.T4HNEW T ( P) TABLE,///) 


x?ru o n 


909 


POPXPT ( 1 no, 3 X , 


5KPfr.SS. IX, 1P8E15.4) 


xpt 9 'i no 


917 


F 0 3 X A T ( 1 H , 7 X , 


111 X , 1 X , 1 Pb E 1 5. 4) 


xrrn 32 :o 




END 




Tp"! 3210 




SUBROUTINE TABLE 


TA IL 3010 


GENERATE NOZZLE 


FLOW TABLE TAPE SUBROUTINE 


T A P I, J .9 2 3 









TALL JO 3 0 
TAUL .30 4 0 




DIMENSION TV AR (14.2 ,50) ,C (6) 
1 T5AV2 (3 5 , 4 . 3 5) 

COMON TSAVl , 7S A V 2 


,X VAR (4, 35) , TSAVl (35,4,35) , 


TAUL 336 0 
T A j L • j 1 6 0 
TABLUO^O 




DO 1 1 = 1,14 




TAUL 90^0 




DO 1 J= 1 ,2 




TALL n"'0 




DO 1 K= 1 ,50 




TALL 3 1 30 




TVAP (I , J ,E) = 1. 0E5 




T A * i L 3 113 


1 


CO NT 1 M U Z 




n, Ai>L-)120 




DO 2 L = 1 ,35 




T A j L 3 1 J 0 




DO 2 1= 1,4 

DO 2 K = 1 , 35 

7 S A V 1 { L , I , K) = 1000 00. 




TA 31. 3 14Q 
TA L > ISO 
TAP*!. IlnO 




TS A V2 ( L , I , X) = 1CJOOO. 




TAi.L 1 170 


2 


CONTINUE 




T A v L ; 1 7 0 




DO 25 I = 1.4 
DO 25 J = 1 , 35 




TAi L ' 1 n 9 
TAUL 0200 




T fl IS CHANGE TO 1 A K E THE J1AX 


DI SESSION CONSISTENT WITH THE 


DIrtENSIO PAUL ’210 




XVAR (1,0) = 1 00000. 
CO NT In U E 




TAjL 3220 


25 




TALL 0 2 30 


3 


L= 1 




TAUL/ 24 0 




1= 1 




TALL i 250 



K= 1 

ICAR 0-0 

DO irt 1 = 1,5.5 

IF (C <") *C («♦ 1) - 199999.) 8, 1 3, 13 

j -- - m C 



6 
5 

8 TSAVl (L , T,>) , . 

TSAV?(L, I , K) = C 1) 
IP (F-3S) 9,9, 26 

9 K = '<+ 1 

10 CONTINUE 
GO TO 4 

26 WRITE (6,900) T,L,X 
GO TO 37 

11 XV = C (2) 

XVAP (I , L) * C (1) 

GO TO 4 

13 I?(XV) 15,14,15 

14 L - L+ 1 



*" VjL'JZ^O 
TALL >2 7 3 

tab:, • ,u o 

T A i i L J2 4Q 
TABL 3 VI 0 
TAUL J HO 
TAUL J 370 
"ALL 7 1 10 
TAM'/ 140 
TA.jL J 350 
TAjLj360 
TAJ*. ^170 
TAUL ) 1°0 
TAUL )3*3 
TAUL 300 
TAUL 3410 
' r ALL 94 20 
TAUL 3411 
TAIL 34 4 0 
TAHLU460 
TABL 3460 
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c 



c 





K= 1 


TAUL J'PO 




IF (1-35) a, '4, 27 


TA 3 L 1490 




THIS CHANGE TO 1AKK THE 1 AX DIMENSION CONSISTENT WITH THE 


DlflENSIOTABL 2499 


15 


I? (1-4) 16,17 ,17 


TAiM. J500 
TAUL 2510 


16 


L - 1 




1 = 1*1 


TA JL 092O 




K = 1 


TAPL >030 




GO TO 4 


TAlU. 154 0 


27 


WRITE (0,927) I 


''■AIM. ^550 




GO TO W 


TAUf 


17 


CONTINUE 
REWIND 12 


TA'JL J570 




WRITE (12) X V A F 


TA3L )5U0 




WRITE 12) TSAV1 


T A U L )5 10 




WPITP 12 TSAV2 


TA <L Jt> 00 


HEXT CARD IS FIRST CARD OF TVAH ARRAY 


7 A i.» L 1 h 1 0 




DO 3b I = 1, 14 


"\\DL 1520 




K = 1 


TALL lb 10 


29 


READ (5,901) (C(L) ,L=1,6) 


T.\UL Ih iO 




ICA3D= ICA3D* 1 


TALI. >65 0 




DO 3U L = 1,5, 2 


T A u 1. )b6 0 




IF (C (L) *C (L* 11 -1^9999.) 3 2,30,3 0 
TV AP (I , 1 ,K) = 100000. 


TA3I. 0670 


30 


TAUL 1699 




T V A R It .2 ,K) = 100000. 
GO TO V) 


TA.iL 2b o 0 




TAJL07U0 


32 


TVAH (I , 1 ,K)=C (l) 

TV A R (I. 2 . K ) = C ( L * 1 ) 


TA'JL 0710 




TAjLw»7?0 




IF (K- j ^ ) 53, 3 7, 37 
K = rf* 1 


TALL 37 10 


33 


r fi o f. c 7 *1 0 


3U 


COM tNU F 


TALL ^750 




GO r r ’ 2 9 


TAULJ750 


3fl 


CO NT I N IJ P 


TAoL >77) 


36 


WRIT 1 -’ M2) TVAR 


TALL .) 7 ,i 0 




CS A V t’= 9 . 9 


TA.’. I, 17 >0 




READ (5,901) (C(L),L=1,6) 


TAM 1900 




ICAR I.= [CARD* 1 


TALL 1910 




DO 1 J)b 1=1,6 


TAJI 14^0 


10 36 


CS A V 2 = C3AV F +0(1) 

IF (OG A V S ) 37. 10 37. 37 
CALL INTFP (V ,20,1 .0, P) 


TA 9 1 99 00 




TALL H49 


37 


T\M J V,0 




CALL D J T F 


"*A 91. I’ibO 




CALI. *<11 


TA J L 0570 


1037 


CONTINUE 
cNCFILTI 2 
REWIND 12 






P ET'jnu 


TAUl 0900 


90 0 


FO AT ( 1 BO , 7 X , 1 9HER ROR IN INPUT DATA , 316) 


T A U L J 1 i 0 


90 1 


POM AT ( 6 2 1 2 . b ) 


T A 2 T . 39^0 


927 


POPS A 71 ( » tiO , 7 X , 36 HEX CEE D I NG NAXIMUfl T EH PE HATU RE INPUT , 


"\M 19 10 




17 H FOP N =,!)) 


TA L 24'io 




EN D 


TALL )9 r O 




SU3ROUT I NE I N’T 3 P ( V A R , N , T , P) 


INT" 1010 
i :: r .l '■) >o 



IF *1=0, b f- AO IN ML TA13L23. SET f JP T A PH AT, AND ZXIT. 
IF H- 20 WRITE OUT ALL TAUlFS AN 0 EXIT. 

IF S = 1 THRU 4, GET APPROPRIATE TABLES FRO.1 TAPE, 
INTERPOLATE FOR VALUE OF V\R AND EXIT. 

IF N = 5 TMPC 13, INTERPOLATE ? Q3 VALUE OF VAR AND EXIT. 



1 



1 



DIMENSION TV AltMU, 2,50) , TV A3 1 (35,4, 3 5) ,TV AH2 (35 , 4 , 35) 
,TF AT (U ,3 5) . H( 1 U1 
C0 1.10 N IVAR1 ,TVAn2,TVAR 
I 2 W=0 

I ? j!f) 1, 1 , 10 



IN-* jvjUO 

i::t‘3 tso 
r jir;- jo^o 
! N T ;< 1070 
I *i ** N ■ 1 'J IQ 

in”; '0‘io 

T STB 11^0 
IN r? 0 1 10 
IN TP 1120 
IN p 3 )1)0 
IN TV M'J 0 
I NT 3 0 1 5 0 



REWIND 


1 2 




BEAD ( 


121 


TR AY 


READ ( 


12 


TV AR 1 


READ 


12 


TV A22 



INTRO 160 
I NTS 1170 
INTRO 140 



T ARRAY HAS 3E EN SET HP, NO. OF T RECORDS f K) IS SET, NOW 
PROCEED TO 3RING IN PERMANENT ARRAYS. 



int: 3100 
THT39200 
INT.t 3 210 
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a 2 AD (12) TV A R 
aETHP’) 

10 IF (N-20) 100. 12,1 1 

11 WRIT* (6,011) 

CALL EXIT 

WRIT? OUT TABLES FOB R-20, T IS PAGE COUNT. 

12 CALL A DATA 
LCT 1 = 0 
LPGCT=7 

WRITE (O.020) LPGCT 
L PGCT= L n GCT ♦ 1 
DO JO L- 1, 14 

13 NT=1 

14 TEST 1 = ? VAT (L , 1 , NT) *T VA R ( L , 2 . NT ) 

IF (TEST 1-2.0 *99996.) 15, t5, l£ 

15 NT=NT*1 

IP { !iT- SO) 14, 14,1000 

16 TV AH (L, 1 ,NT) -0.0 
TVARjL, 2 £ NT) =0.0 



1 ? (NT- 1 ) 51b, 520, 515 
INPUT THIS i ABLl' 



515 



NO . 

520 W ? I TL (6 .J520) H(L) 

LCfl = ' LdT H u 
GO TO 5)0 
N T = N T - 1 

• RITE (6,016) B(L) 

L 2 = A " I N 0 (R.H) 

LT = 1 

18 WHITE (6,010) H (I. 

WRIT- (0,319) (TV 
I? (L2-N7) 10, 20,20 

19 L1=L1H 

L2 = A ** I N 3 (L2» B, NT) 

LT = L7 * 1 
GO TO 1 H 

20 LCT1 = LT* J* J* LCT1 
530 lP<LCTl-52> 30,21,21 

21 -HIT? (6,023) LPGCT 
LPGCT= LPGCT* 1 

LCT 1=1 
30 CONTINUE 
PEWIHO 12 
DATA ;1(1)/4H CAG/ 

DATA H(2)/4H CBG/ 

D A ~ \ .i 3) /1H WAG/ 

DATA ri(4)/4M JBG/ 

DO 50 L= 1,4 
IF (TRAY (L. 1) -00909.) 
WHITE (6,120) LPGCT 
WRIT'' (h , MO ) H (L) 
LPGCI= LPGCT* 1 
LCT 1 = ) 

DO 45 K K = 1 , 3 5 
r? (THAT (L, K K) - 19999.1 

rrc it. 0 j 4 ) j*' • " * * 



^ ^ ! Ife ' t2 » 



29 

31 



29,29,50 



32 ■ R 1 1 £ (b.1 ) 
LCT1 = LCT 1 ♦ J 
NCT= 1 
34 T EH? 1= T VAR1(KK 



35 



HAY (L,KK) 



32,32,45 



TEG? 1= T VAR1(FK,L. NC?) *TVAR2 (KK,L, 
IP (TTST 1-2. J*0 9909. ) 35,36,36 
NCi = NCT * 1 

I P (NC7- 35) 34 ,34, 1000 

sr' 1 = 'Ji'-- i 



NCT) 



36 NCT=OC 
L 1 = 1 

L 2 = A T I N 0 (B,NCT) 

37 CO NT I HUE 

38 DO ^1 L?=L1,L2 



IP (TV A R 2 (K K. L. LT) - 
60 TVAR1 ( K K , L , LT) =0.0 
TVAR2 ( X K ,L, LT) =0.0 



LT) -100000.) 63,60,63 



63 CONTINUE 



I MTfi 0220 
INTIt 0 2 30 
I NTH 3250 
INI l 0260 
rs r;i J770 
I NTH ;2O0 
I NTR )2 n 0 

I NT" 7 K^O 
in ra 34^0 

I'CV )4»'0 

I 'T it JU70 
TNT., 3UH0 
INTO 3400 
I NT n )500 
tNn)5io 
I NTH 0620 
r NT T 35 30 
I N -R )64 0 
IN-R '5 r '0 
I NTR 0560 
T NT* 1 15 7 J 
IN t- \ 0 
T Y . ' .x 05 n 
I N T r Jo 00 

r s : n f K> i o 

INTO ’6 *>0 
I NT .t Jt> 1 0 

I N" p R »b -M) 
: 06 G 0 

I NTr )r>*.0 

in:: *6 7o 

I NT ^ >660 
I V? J6^0 
INTT 3700 
INF” J 7 1 0 
INTT 07 *0 
I NT.- )7 10 
TNT. 3 37^0 
I NT 7 J7‘‘ 0 
r *r ” ’> ^ ■» n 



TN ™ 7 ) 7*10 

in; r j/oo 
isr-' 7 '>oo 
Ml* - 3 0 10 
T N ** ;i )-C 0 
I NTR )‘1 30 
i n r )04 ) 
I H - *» 9 M r * 0 
[NTH WOO 
in:.? j ^ 7 o 
T N T H )H M 0 

nr? ; ? >0 
rsn nuo 

TNT 77 >0 10 
I N r H 10^0 
INI' 7 >0 <0 
I HTh 3040 
T*1 *•* ’^3 
I N T R V^O 
I N ** N ?07Q 
T NT ? 39*0 
TNT? )*90 
TNT 4 1000 
TNT? 101 o 
INTO 1020 
T S P « 1 0 1 0 
IN TR 1040 
INTR 1050 
I NT? 1060 
I NTH 1070 
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FILE: Tfl 3 



FOB TRAN A 1 NAVAL ?0 STG RA 0 OATS SCHOOL 





‘WRITS (6,938) H (L) , (TVAR2 (KX,L ,LT) . LT=L1 ,L2) 


t ’ 0 p 0 


39 


■ RITE 16.939) (TV AR t (X K, L, LT) , LT= L 1 , L2) 
LCT 1= LC T 1 ♦ 3 


TNTa 1 390 
IN \R 1 100 


65 


IP (LCT 1- 52) 6 6,65.65 
WHITE (6,920) LPGCT 


X N r 2 m 0 
I NTH 1 120 




LPGCT= L PGCT* 1 


INTR 1 1 30 




LCT 1 = 3 


INTR 1 1 u 3 


66 


IF (L2-NCT) 40 ,4 1,41 


rv rr i iso 


40 


L 1 =L 1 *8 


INTO 1 160 




L 2 = A " I N 0 (L2* 8 , HCT ) 


IN7R 1170 




GO TO 38 


IN- 7 1 HO 


4 1 


IF (LCT 1- 52)45, 42 ,42 


in rr. i i'io 


42 


WHITE (6,920) LPGCT 


INTR 1200 




L PGCT = L ? GCT ♦ 1 


INTR 12 10 




LCT 1 = 3 


INIR 1230 


45 


CONTINUE 


INTR 12 70 


50 


CONTINUE 


IN-R 1240 




I t (IBW- 1) 104 7, 1046, 1047 


TNT 3 1260 


1 046 


N = 0 


r nt* 1260 
IN T 1 12 70 


1 097 


RETURN 


N = 


1 TIf HC 18 - INTERPOLATE ROUTT NF 


I NT J 12 90 


100 


IP (N-4) 101, 101 , 150 


INTu 1290 


101 


DO 104 1=1,35 


I N r ^ noo 




IP (TPW (N, I) -T) 104, 105, 105 


into i no 


104 


CONTINUE 


INTR 1 370 




GO T" HC 


I nt;. 1 3 .o 


106 


I? (1- 1) 106,120,106 


INTI 1 HO 


106 


IN 1=1- 1 


I NTH 1 350 




7 K=T ? A 7 (N. I) 

TK 1*TP A T (N.i 11 ) 


LN-W 1 3*0 
I N 7 ' i 1 170 




DO 107 J 1=1, 35 


INTO 138 0 




IP (T V A 4 1(111, N,J1)-P) 107 , 107, 1 08 


IN-R 1 3'0 


107 


CO NT IN fj P 


IN- 7 1 4 70 




GO TO ’20 


r N PP 14 10 


108 


IF (J 1- 1 ) 105. 120, 109 


T.N-« 14?0 


109 


IF (TV <7 1 (111 ,M,J1)*tvah2 (1 .1 1 , N , J 1 ) - 2 . 0 *9 999 9 . > 1 10, 12 0, 120 


iN-j, r» io 


110 


JK 1*J 1- 1 


T N r t* 14 * c 




Dir PT=T VAP. 1 ( I. 11, :i,J 1) - TV AH 1 (111 1,N ,JH 1) 


I NT '■< 14 5 3 




D I FF 1 = TVAR 1(11 1.N..I1) - P 

rci=- (DIF71/UI P- ;) * (TV A3 2 (111, M,J1) - TVAR 2 ( I il 1 , N,J.1 1) ) ♦ 


I NTrt U‘ ) 
I S T 7 14 7 0 


1TVAP2 I N 1,£I,.J1 ) 


I NT 2 14 8 0 




DO 111 J 2= 1, 35 


IN -7 1 4 70 


11 1 


I F (TV A .1 1 (I , N , «T 2) - r) 1 11 , 1 1 1 , 1 12 


INTR 16 0 0 


CONTIN 1 E 


TNT- 15 10 




GO TO 120 


16 7 0 



112 IF 'J2- 1) 113, 12 0, 1 13 

113 J 1 2=32- 1 

I F (TV VK 1 (I , N , J 2) *T'/AP2 (I , N , J 2) -2. *99 999.) 1 14 , 1 20, 120 
11U DIr?T=: V AR 1 ( I , N. J2) -TV AP 1 (I, .9, JP.2) 

DIFF1= r7ARl(:,N.J21-P 

rc: = - (OTFFI/O IF FT) * (T VA 32 (T . N ,.I2) -T V A32 (I,N,JH2) ) »?VA R2 ( I , V, J2) 
VAfts(r-TKI)/ (TK-TK1) *(PC2-^C1) *PC 1 
RETUPN 
N = 0 
I H W = 1 
GO TO 12 
ass-a 

IF (N- 15) 155, 1000, 1000 
CONTINUE 
DO 191 1=1,50 

I? = I 

T ? (TV AT 1, I) -T) 151,151,152 
continue' 

GO TO 1 20 

IF ( ? 7 \ 7 (N. 1, I) ♦TVAR (N,2, X) -2.0*99999 .) 153,120, 120 

IF]u-l>V»4, lio,154 

IP1 = IP- 1 

V AR = ( (T- TV AH (N , 1 , IP 1 ) ) / (TV A R (N , 1 , IP) -TVAH f N, 1,IP1) ) ) 

1* (T7AK (N .2,1 P) -TV A3 (N,2, IT 1) ) ♦77AH(N ,2,I?1) 

GO TO 1 3 0 
CONTINUE 
CALL OUTPUT 



130 

120 



150 

155 



151 

152 

153 

154 



1000 



TV?:< 15 30 
into i5'j 3 
I NT7 15 , 3 
I N I A 15 M) 



IN 7 3 


1570 


INTR 


I58f) 


::j"n 


1 5 ' M3 


IS? l 16 00 


I N T R 


16 1.) 


I NT.. 


1 *-»20 


I NT 7 


If. 10 


INTO 


H4 0 


INI.’ 


16 5 0 


INTO 


It, 60 


: nt .. 


1«» 70 


t :ik 


16’<0 


I NT 7 


9 


r.NTR 17 00 


i n r ? i7io 


I N TV 


1 7->Q 


INTI 


1 1 10 



:n?-> i7ao 
INTR 1750 
INTR 17<^0 
I VTA 1770 
IN? 3 1730 
I NTH 1790 



190 



uu 





CALL DHNF 


TNTR 1800 




RETURN 




rsr^ i8io 


91 1 


FOR SAT 1 


[ 1 HQ , 7 X . 33 HILL EG A L CALLING SEQUENCE TO INTRP) 
1 HO ,5 6 X . 1 1 HL N pu T T A JL E, 2X, Ab , /) 

[ 1H0,Au, T F H E 1 5.8) 


LNTrf 1320 


91b 


FORMAT 1 


E NT V 1310 


918 


FOPS AT I 


IN i h 1840 


919 


POR.-MT 


( 1H , 2X.4HTSSP, 1P8E15.b ) 

IHI , /. 1 50a,UHF\GF.2X, 13) 

1Hl,40X r 1 4 ftT ESP E3 \ IU ? E = ,P12.4,//) 

IHJ, 3X,AG, IPHflS.o) 


INTI 1 450 


92 0 


FOPNAT 


I N?P 13o0 


9JU 


FORMAT i 


INTR 1370 


938 


POHS-'T , 


I NT 3 1840 


9J9 


FOSSA " 


1 H ,3X f 5Pr?ESS , IX, ITBElD.b) 

1H0,/, 1H0,7X, IrihNO INPUT FOR TA3LE, A6) 


I NT 3 19 30 


9520 


F 0 F S A r 


I NT 9 1900 




FjC 


I NT 8 1910 



SUBROUTINE DUSF 
CALLSX IT 
RETURN 
END 



1 

2 

3 

1 

2 



10 

20 



S UPROtIT I NE A D A T A 

DI SENS 10*1 ur (IB) , U{ 141 ,HT1 (191 ,Hl ( 14) 

COESDN If T - if 

DATA HTl/iH CAG,4H C3G.4H *AG, UH «.A3,4H CAL, 
4H CIiL,4H LA,4H L 3 , 4 IT ?D0, 4 tf t?0 AL, 
4HR9JL,4H KAG,4H ri 3G ,4 HVl AL , 4li VI 3L, 
4HV T \G , 4 H VT IJO , UH SIG/ 

DATA H1/UM CAL,4H Cbl.,48 8 LA , U R UL3.4H P30, 
4HRn,\L, 4HPOBL,4rt K AG , 4ff K 3G, 4 H V IA L , 

4 HVI3L, 4BVIAG ,UHVI3G,4H SIG/ 

DO 10 1=1,13 

= HT1 (I) 

00 20 1= 1. 14 
H (T> =H1 (I) 

CONTINUE 

RETURN 

END 



continiH 
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